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CHAPTER S 
SAVE MEMORY ON TAPE 


S-0. This chapter describes the @SAVE command and its 
counterpart in assembly program. The purpose of @SAVE is to 
copy the content of a block of the volatile RAM onto the 
non-volatile tape so that it can be retrieved later. The 
retrieving is called "Load" and is discussed in Chapter L. 


S-1. Save Machine Language Programs 


Machine Language programs (or a block of memory of arbitrary 
content) can be copied on tape with the BASIC command: 


@ (#d) SAVEn, addr, 1lnth(,aust) 


where d is the optional drive number, n is the file number, 
addr is the address of the block of memory, Iinth is the length 
of the block, and aust is the optional auto-start address. All 
these parameters can be BASIC expressions with the 
limitations: 


da should be between 0 and 7 
n should be between 1 and 99 
addr,.inth,aust should be between* -32768 and 32767 


*NOTE: In ESF firmware version 3.2, these three parameters 
cannot be expressions, and must be numbers between 0 and 


65535. In version 4.1 these parameters can be either numbers 
or BASIC expressions. However, due to the way BASIC handles 
integers, the range of value is between -32768 and 32767. Hex 


0000 through 7FFF are integers 0 through 32767. Hex 8000 
through FFFF are integers -32768 through -1. 


The optional parameter aust is recorded on tape and used by 
@LOAD to determine what to do after the file is read back from 
tape and loaded into memory. If this option is not specified, 
the firmware will supply the default value 12309 (Hex 3015) 
which causes the firmware to return control to BASIC. If the 
machine language program is a stand-alone program (as opposed 
to a Subroutine or patch to BASIC or other programs), it is 
recommended that the execution starting address should be used 
as aust.* 


*NOTE: The ESF firmware version 3.2 has no means to override 
the autostart, and thus, much stand-alone software is shipped 
with the default aust 12309 so that the user can make copies. 
This is no longer necessary with version 4.1. If the user 
wants to override autostart to make copies, he (or she) should 


MP133 
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press and hold the shift key while loading the program. The 
firmware will not start to execute the loaded program, but 
display the address, length, and autostart on the screen on 
completion of loading. 


The assembly language counterpart of the above BASIC command 
is: 


LD HL, (40B1H) 

INC HL ; Optional, set drive # 
LD (HL) ,OFOH+drive # 

LD A, file # 

LD HL, address of block 

LD BC, length of block 

LD DE, autostart* 

CALL 300CH 


*NOTE: The autostart must be supplied and is not an optional 
parameter. 3015H can be used if control should be returned to 
BASIC after loading. An autostart of 0000 should be used only 
if the block to be saved is a BASIC program. 


S-2. Restrictions and Other Comments 


In principle, the SAVE command or assembly program in the last 
section can be used to save any part of the memory, including 
the ROM and the video refresh RAM. However, the following 
should be noted: 


(a) When used to save the video refresh RAM (Hex 3C00 to 
3FFF), the unwanted message: "WRITING..." will also be 
recorded. Furthermore, after the loading, the message: 
"DONE" will also show up on the screen. One way to 
avoid this is to disable the display output routine 
before the SAVE and LOAD command, and re-enable it 
afterwards. For example: 


100 REM compose a beautiful picture 

600 POKE 16414,87 : REM disable display output 
610 @SAVE3 ,15360,1024 

620 POKE 16414,88 : REM enable display output 


700 REM do other things 
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900 POKE 16414,87 
910 @LOAD3 
920 POKE 16414,88 


This method is somewhat unsafe. If an error occurred 
while the display output is disabled, the error message 
will not be displayed, and the computer will appear to be 
dead. One can recover from this by typing "(BREAK)" 

and "POKE 16414,88 (Enter)" blindly. 


(b) The RAM location Hex 401A is used by the ESF firmware 
(version 4.1). If this location is included in the block 
to be saved, a "verify error" will occur during SAVE. 
Subsequently, a "checksum error" will occur during LOAD. 
There is no harm done in either case. 


(c) If the stack is included in the block to be saved, a 
“verify error" will occur during SAVE. No harm is done. 
If the stack at load time is included in the block to be 
loaded, the result is usually catastrophic. The stack at 
load time is independent of the stack at save time, and 
is not directly under the control of the programmer. For 
BASIC, the top of stack is usually about 50 bytes below 
the top of available RAM and is pointed by the contents 
of location Hex 40E8-40E9. After SYSTEM, the top of 
stack is usually at Hex 4288. 


S-3. Save BASIC Programs 


ee et ee 


The BASIC command to save the current BASIC program is: 
@ (#d) SAVEn 


where d is the optional drive number, which can be an 
expression with value between 0 and 7, and n is the file 
number, which can be an expression with value between 1 and 
99. This command will cause the firmware to find the block of 
memory, which contains the current BASIC program, save this 
block with an autostart of 0000. Assembly program can use the 
same code as in section S-1 to save a BASIC program, but the 
address and the length of the block must be given. The 
beginning address of the BASIC program is usually stored in 
the location Hex 40A4-40A5. The end of BASIC program is 
marked by three consecutive bytes of zeros. A subroutine at 
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Hex 1AF8 can be used to find this marker. 


CALL lAF8H ;find end of BASIC 
INC HL ;HL -] end + 1 
LD DE, (40A4H) ;DE -] begin of BASIC 
SUB A ;clear carry-borrow 
SBC HL,DE 7HL = length of BASIC 
EX DE, HL ;HL -] begin 
PUSH DE 
POP BC 7;BC = length 
LD DE,0 sautostart must be 0 
LD A,file # 
CALL 300CH 7; SAVE 

The autostart = 0 is a special flag for "LOAD" to relocate 


BASIC program. See Chapter L for details. 


S-4. Sequence of Events During SAVE 


The files on tape are separated and identified by file marks. 
The @NEW command will write an "End of file 0" at the 
beginning of the tape. The @SAVE1 command will execute the 
following sequence: 


(a) Start the motor and search for "End of file 0". 

(b) When found, start to write the block on tape. 

(c) When finished with the block, keep motor running to leave 
a gap on tape. 

(d) After the gap, write "End of file 1" mark. 

(e) Search for "End of file 0" again. 

(f£) When found, start to verify the block on tape with what 
is in memory. 

(g) When finished with the block, stop the motor. Because of 
the gap in step (c), the tape will stop before the 
"End of file 1" reaches the head. 


The @SAVE2 command will be executed similarly, except all the 
file numbers are one bigger now. 


S-5. Speedy SAVE 


Using the firmware, it takes at least two loops to finish the 
@NEW, and at least one loop to @SAVE each file. This can be 
very time consuming to copy a long tape with many files. The 
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following sequence can be used to save files without verify: 


(a) 


(b) 


(c) 
(ad) 


FIN: 


(e) Repeat step 


(f£) 


Instruct the operator to insert a blank tape into the 


drive. 


Execute the following to find the beginning of tape: 


CALL 


Ready the file in memory to be saved. 


3000H 


(See Section L-5.) 


Execute the following to write "End of file-1" and then 


the block: 


Execute the 


LD 
CALL 


A, (file #) 
A 

3021H 
NZ,FIN 
3733H 

A, (file #) 
L,A 
Z,3592H 
NZ,FIN 
HL, (addr) 
363BH 
NZ,FIN 

AF 

A, (TX) 

AF 


HL, (autostart) 


363BH 
NZ,FIN 

NZ 

IX ,memory 
HL, (length) 
3567H 


for 


;file 
;file-1l 


jwrite "End of file-1" 


smotor on again 


;start the block 


;write the block addr 


s;wait a while 


swrite the autostart 


z;actual addr of block 


swrite the block 


; finished, 


ck error if non-0 


all files to be saved. 


following to write the last "End of file": 


(c) and (d) 
A,(file #) 
3021H 


(g) Inform the operator that the tape is finished. 


A program called "COPYCAT" 
enable user to write 
process. Effective use 


drives in the system. 


uses the method outlined above to 


of 


BASIC program to 


"COPYCAT" 


control the copy 
calls for two or more 
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CHAPTER L 


LOAD MEMORY FROM TAPE 


L-0. This chapter is an attempt to explain the actions of the 
@LOAD command. These actions are controlled by the parameters 
given during the @SAVE, which is described in chapter S, and 
also by the conditions during LOAD. 


L-1. Loading Machine Language Programs 


The so-called machine language program can actually be any 
memory dump. This kind of file is identified by a non-zero 
autostart. The action of @LOAD is rather simple. The file is 
read into the memory as specified during @SAVE, no check is 
made on where it is going to be loaded or how long the block 
is. If this block covers the video refresh RAM, the screen 
will show it. If this block overlays the stack, the system 
will crash. After the block is read, (and if the system did 
not crash), the firmware will check to see if the "Shift" key 
is depressed. If so, the block address, length, and the 
autostart will be displayed on the screen, and the FD error 
code is passed back to _ BASIC. If the "Shift" key is not 
depressed, the firmware will jump to the autostart address. 
Included in the firmware is the routine at Hex 3015, which 
will restore the registers and make a smooth return to the 
BASIC interpreter. Thus, SAVEd files with autostart set to 
the default Hex 3015 will not disrupt the normal execution of 
BASIC program with an @LOAD embedded in the code. 


L-2. Loading BASIC Programs by Direct Command 


A BASIC program saved on tape is identified by the zero 
autostart. The action of @LOAD does not depend on whether the 
"Shift" key is depressed but does depend on whether the @LOAD 
command is a direct command typed on the keyboard or not. If 
it is a direct command: 


(a) The block length is checked against the total available 
memory space calculated from: 


LD HL, (40A0H) ;string space 
LD DE, (40A4H) ;BASIC begin 
SBC HL,DE 
LD DE,100 ;stack space 
SBC HL ,DE 


where (40A0H) is set by the CLEAR n command to be: 
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(40B1H)-n with default value of n = 50, and (40B1H) in 
turn is usually set by the "MEMORY SIZE?" at power up, or 
subsequently changed by the ESF firmware or other 
programs. 


(b) If there is enough memory, the tape is loaded into memory 
pointer by the content of locations Hex 40A4-40A5, and 
not by the parameters recorded during @SAVE. 


(c) After it is loaded, a special subroutine is called to 
clean up the links inside the loaded BASIC program. This 
is necessary because the contents of Hex 40A4-40A5 during 
@SAVE and @LOAD may be different. As a consequence, the 
BASIC program is loaded into a different block of memory 
and the links inside are all wrong. 


(dad) All the variables and strings are cleared. Control is 
back to BASIC direct mode. 


L-3. Loading BASIC Program by Another BASIC Program 


ee cee ee eee re ee ee ee ee ee re ee oe ee ee ee ee ee ee ee ee ee ee ee ee we ee we 


When the @LOAD is executed as part of a BASIC program, the 
actions taken by the ESF firmware is quite different. It is 
designed to be able to do program overlay or chaining. 


(a) The block length is checked against the available memory 
space exclusive of the variable already defined: 


LD HL, (40F9H) ;variable space 
LD DE, (40A4H) ;BASIC begin 
SBC HL ,DE 


where (40F9H) is set by the CLEAR command to point one 
above the end of the current BASIC program. Thus, in 
order to have enough space to load, the current program 
must be larger than or equal to the one being loaded. 

See Section L-4 for methods to overcome this restriction. 


(b) and (c) Same as in Section L-2. 
(d) All the variables and strings are preserved. Control is 


back to BASIC to start executing the first statement of 
the program just loaded. 
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L-4. Program Overlay 


When a program is too big to fit into the available memory, it 
is often possible to divide the big program into logically 
operable small segments and load only one segment into memory 
at a time. The special actions of @LOAD described in Section 
L-3 make this possible to do in the TRS-80 system. 


For example, for some unknown reason, one decides to write an 
Editor-Assembler-Debugger in BASIC. It is clear that during 
editing, the code for Assemble and Debug need not be in 
memory, and vice versa. Thus, one can divide this into three 
segments. In the Editor segment, you can type the command "A" 
and the program will do an @LOAD2 which will wipe out the 
Editor segment and load in and start the Assembler. Or, you 
can type the command "Z", and the editor will do an @LOAD3 
which will also wipe out the Editor and load in and start the 
Debugger. While in the Debugger, the command "E" will cause 
an @LOAD1 and load back the Editor. One important point is 
that during all this loading and reloading, the variables and 
strings - which contain the source and object code you are 


trying to edit, assemble, and debug - should always be 
preserved and available to the different segments of the 
program. Another perhaps less important thing is the new 


segment being read in should start automatically. The @LOAD 
does precisely these. 


The segmentation of the above example is obvious. But even 
less obvious problems can always be divided and conquored. The 
few problems with overlay on TRS-80 are: 


(a) The segment that is loaded first by direct command @LOAD 
has to be the largest segment. Otherwise, there will be 
a OM error when it tries to @LOAD a larger segment. One 
way to overcome this is to put two POKE's in the first 


segment: 
10 POKE 16633, low-order 
20 POKE 16634, high-order 


where the low-order, high-order are the contents of 
location 16633, 16634 respectively when the largest 
segment is @LOAD by direct command. 


(b) Some of the strings that were defined may appear to be 
wrong after overlay. This can be avoided if one does not 
use assignments like: 

10 A$="this one" 
but use instead: 
10 AS="this one"+"" 


(c) READ data commands get lost or cause an OD error. 
solution is to put a RESTORE command at the 
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of that segment. 


L-5. 


Loading Programs by Assembly Program 


The firmwa 
programs. 
program de 


re does not support 


scribed in Section S-5. 


asssembly programs 
But this can be done and is used in the 


LD HL,max-block size 
PUSH HL 
LD H,file # 
LD2: CALL 3734H smotor on 
LD3: CALL 3649H ;find sync 
JR NZ,LD5 
LD A,D 
OR A 
JR LD3 ;data file 
JP M,LD3 ;end of file 
SUB H :found? 
NOP 
JR NZ,LD3 snot yet 
CALL 370BH :found it 
LDS5: JP NZ,ERROR 
LD H,D 
LD (addr) , HL ;save addr 
LD IX,memory sactual addr 
PUSH HL 
INC HL 
POP HL 
CALL 370BH ;xread 2 bytes 
JR NZ,LD5 
LD H,D 
LD (autostart),HL ;save autostart 
LD IY,LD1 :fake call 
JP 31B8H 
LD1: LD (length) ,DE ;save length 


PAGE 9 


The 
beginning 


to load 
“COPYCAT" 
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CHAPTER D 


DATA I/O 


D-0. This chapter discusses the steps needed in assembly 
programs to output or input a data file. The Data I/O program 
for BASIC and a patch for Radio Shack's EDTASM are used as 
examples. 


D-1. Output a Data File 


(a) To open the file: 
(i) Define a buffer, and indicate that the buffer is 
empty. 
(ii) Find the "End of file-1": 
LD A,file # 
CALL 300FH 


Note that this will start the drive motor and can take up to 
one full loop to find the beginning of the file. If the user 
knows that the position of the tape is correct, step (ii) can 
be omitted and thus save a considerable amount of time. 


(b) To output a byte: 
(i) Put the byte in the buffer, and move the buffer 
pointer by one. 
(ii) If buffer full, write it on tape: 
LD HL,addr of buffer 
LD BC,length of buffer 
CALL 3006H 
indicate that the buffer is empty again. 
(iii) Return. 


(c) To close the file: 
(i) Write buffer if not empty, and write end of file: 


LD HL,addr of buffer 
LD BC,# of bytes in buffer 
LD A,file # 


CALL 3027H 
(ii) Free the buffer. 
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D-2. Input a Data File 


(a) To open the file: 
(i) Define a buffer and indicate that it is empty. 
(ii) Find the "End of file n-1" 
LD A,file # 
CALL 300FH 


(b) To get a byte: 
(i) If buffer empty, read a record: 


LD HL,addr of buffer 

LD BC,length of buffer 

CALL 3003H 

LD (# of bytes in buffer) ,BC 


(ii) Get the byte from buffer. 
(iii) Decrease the # of bytes in buffer by one. 


(c) To close the file: 
Free the buffer. 


D-3. The Data I/O Program for BASIC 


The Data I/O program for BASIC supplied with every ESF follows 
the procedure described in Sections D-1 and D-2. A listing of 


the program can be found in Appendix. This program is 
actually loaded into location 6C0O0H and relocated. All of the 
addresses in the listing marked with a single quote ‘' are 


changed to reflect the actual relocated addresses. 
Note that this is a buffered I/O and is quite different from 


the unbuffered TRS-80 cassette Data I/O. The following two 
programs will write identical tape files. 


10 @OPEN1 
20 FOR I=1 TO 10 
30 @PRINT I 
40 FOR J=1 TO 10000 
50 NEXT J 
60 NEXT I 
70 @CLOSE 
Program 2: 
10 @OPEN1 
20 @PRINT 1,2,3,4,5,6,7,8,9,10 


30 @CLOSE 
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Equivalent programs on TRS-80 cassette Data I/O will produce a 
much longer tape in case 1 as compared with case 2. 


D-4. Patch to Radio Shack's "“EDTASM" 


A patch to Radio Shack's "EDTASM" to use ESF for source 
storage is shown on the next page as another example. 


4301 
4301 SC37 


4695 
4695 2ABt40 
4698 1805 


3023 

4023 3A2341 
4026 D639 
4028 FS 
$029 CNOF30 
4920 2012 
ATQE O112A3 
4031 2A1S41 
4034 09 
4ap35 €3 
436 Ct 
4B37? 21F05C 
4D3A Fi 
4B3B CD2730 
4D3E C3 
403F €5 
4040 E1 
4B41 C430 
4043 E47F 
4945 21AE48 
448 03314? 


AD4B 3A2841 
4D4E 0630 
4050 CHOFSO 
4053 20EC 
4055 01123 
4058 2A1341 
4DSB 09 
WSC ES 
4050 C1 


JOSE 21F OSC 
4061 22084) 
4064 CD0330 
4067 2008 
4059 99 
AD6A 2B 
406B 28 
4tec 221541 
ABOF C9 
468A 


00100 ; 
002003 ten eennannae 
00300 ; PART # 1: KEYBOARD DEBOUNCE 
00400 ORG = 4301H 

00500 DEFY © -375CH 

00600 ; 

00700 ; PART # 2: PROTECT HIGH MEMORY 
00800 ORG = 4495H 

00900 LD HL, (40B1H) 
01000 JR $69FH 

01100 ; 

01200 ; PART # 3: WRITE SOURCE ON ESF 
01300 ORG = 40123H 

01300 URITE LD A. (4128H) 
01500 SUB “0” 

01800 FUSH AF 

01700 CALL © -300F4 

01800 JR NZ ERROR 
01900 LD BC, -SCEEH 
92000 LD HL, (41 15H) 
02100 ADD CHL BC 

02200 PUSH HL 

02300 POP BC 

02400 LD HL. SCFOH 
02500 FOP AF 

02400 CALL © -3027H 

02700 RET 2 

02800 PUSH HL 

92900 ERROR POP HL 

03000 ADD A, “0” 

03100 AND) TFH 

03200 Lr HL, 48AEh 
02300 iP 4731H 

03490 ; 

03500 ; PART ¥ 4: READ SOURCE FROM ESF 
03600 READ LB a, (4128H) 
03700 SUB “0” 

03800 CALL © -300FH 

03900 JR NZ, ERROR+1 
04000 LD BC, -SCEEH 
04100 LD HL, (4113H) 
04200 AnD HL BC 

04300 PUSH HL 

04400 FOP BC 

04500 LD HL, SCFOH 
04400 LD (4111) ,HL 
04700 CALL 30034 

04800 JR NZ, ERROR+1 
94900 ADD HL RE 

05000 DEC ML 

05190 MECH 

95200 LD C4115H) HL 
05300 RET 

65400 END = 4684H 


00000 TOTAL ERRORS 


ESF PATCHES TO “EDTASH" 


sFIND BOF 


sGET NEXT CH AFTER "UW" 
;CONVERT IT TO FILE @ 


s~ (BEGIN ALDER. OF SQURCE)+2 
;(END ADDR. OF SOURCE) 


;BC = LENGTH OF SOURCE 
;(BEGIN ADDR. CF SGURCE) 
yFILE ® AGAIN 

sWRITE FILE + EOF 


cIN CASE OF AN ERROR 
;CONVER ERROR CONE f0 ASCII 
sFOINT TO MESSAGE 

360 PRINT AND RECOVER 


GET CH AFTER "L" 

‘CONVERT ASCII TO FILE @ 
sFIND THE BOF 

+~ (BEGIN ADDR. OF SOURCE) +2 
7 (MAX MENORY ADDR.) 

;MAX LENGTH OF SOURCE 


; (BEGIN ALDIR. FOR SOURCE) 


sREAD FILE 


;- (END ADDR. OF SOURCE) 
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CHAPTER T 


TAPE FORMAT 


T-0. This chapter deals with the tape format used in the ESF 
for TRS-80 and some of the inner details of the low level 
subroutines in the firmware. One does not need to know these 
details in order to use the ESF. One might even get more 
confused by reading it. This chapter is for the curious and 
the desparate. The curious should read it without taking it 
too seriously, and never try to use the subroutines named in 
it. The desparate should use this chapter as a guide, read 
the firmware listing carefully, worry about all the registers, 
count the machine cycles (hereafter referred to as TRS-80 
cycles) between input or output instructions, etc. If after 
all these, the desparation turns into frustration, the author 
of the firmware (and this manual) expresses his deep 
sympathy. 


T-1. Recording Method 


The so-called frequency modulation (FM) encoding is used in 
the ESF for TRS-80. This is the same method that is used in 
most single density floppy disks. Data (which also includes 
images of programs in this context) are written on the 
Magnetic media one bit at a time in blocks called records or 
sectors. A magnetic flux change is written at the leading 
edge of each bit cell. An additional flux change is written 
at the center of the bit cell if, and only if, the bit is a 
a ee For the ESF, each bit cell is 150 micro-seconds, or 248 
TRS-80 cycles. 


The subroutine "WRBIT" in the ESF firmware will write n 
consecutive bits assuming that the I/O port number is in C 
register, the number n is in B register, and the bits to be 
written are in D register. This subroutine will also check 
the write-protect detector and the end-of-tape (EOT) detector. 
If either one is set, it returns a 01 or a 04 respectively in 
the A register, and an NZ in the F register. Otherwise, 2 
will be returned in the F register. 


"WRBIT" reverses the write-current every 248 TRS-80 cycles for 
each bit of data. (These are the "“clocks".) It also reverses 
the current at 124 TRS-80 cycles if the particular bit is a 
"1". (These are the "data".) "WRBIT" takes 75 TRS-80 cycles 
before writing the first "clock" and 28 TRS-80 cycles after 
last "data" to return to the caller. The caller should use up 
21 TRS-80 cycles between calls to meet the 124 cycle 
requirement. Note that RAM location 401AH is used by 
“WRBIT". 
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The "DJNZ RB2" loop of the subroutine "RDBYT" is responsible 
to read the bits back from tape. It loops either in the "JP 
P,RB4" loop, or the "JP M,RB5" loop for a negative going or a 
positive going "clock" respectively. Then it waits 175 TRS-80 
cycles and reads the polarity of the magnetic flux. If the 
polarity has changed, then the bit is a "1", else it is a "0". 
This bit is saved in the D register. (See next section for a 
full description of "RDBYT".) The 175 cycle wait is optimal 
for speed tolerance and other considerations to recover data 
with 248 cycle bit cell. 


T-2. Byte Format 


The 8 bits of a byte is written consecutively starting at the 
least significant bit (bit 7). In addition, a parity bit is 
written after the most significant bit (bit 0). The parity 
bit is "1" if the total number of 1's in the byte is even. The 
parity bit is "0" if the total number of 1's in the byte is 
odd. This is called "odd parity", but ironically, "odd" 
parity makes the total number of flux changes "even" in FM 
recording. An even number of flux changes means the polarity 
of the magnetic flux ends up the same as it started with. This 
makes the parity bit very easy to generate or to check. 


The subroutine "WRBYT" in the ESF firmware will write the byte 
in the D register on tape. The parity bit is generated by 
forcing the polarity of the write current to be positive at 
the center of the parity bit cell. "WRBYT" will detect write- 
protect and EOT as it calls "WRBIT". "WRBYT" also adds_ the 
contents of D to register E for checksum. 


The subroutine "RDBYT" will read a byte from the tape and put 
it in the D register. The previous contents of D is added to 
RAM location 401AH for the checksum. "RDBYT" does not check 
the parity of the current byte, but does check that of the 
previous byte simply by looking at the polarity of the 
magnetic flux. "RDBYT" also scans the BREAK key. It returns 
a 08 or a 01 in the A register if parity error or BREAK 
respectively and with an NZ in the F register. Normal return 
has 00 in A and Z in F. 


T-3. Record Format 


As stated before, bits and bytes are never written alone, but 
always in blocks called a record. A record starts with 512 
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bits of 0's followed by a single bit of "1", and a "sync 
byte". After the sync byte are the "record type" and the type 
dependent bytes. The stream of "0" bits helps the read 
routine to find the beginning of a record. Note that: 


(a) Since 0's have "clocks" only, the read routine cannot 
mistake "data" as "clock" or vice versa. Thus, this makes 
it easy to achieve the so-called "bit synchronization". 


(b) Since data bytes have odd parity, there can never be more 
than 16 consecutive 0's in the data stream. Thus, the 
long stream of 0's is unique and un-ambiguous. 


The single bit of "1" after the long stream of O's mark the 
byte boundary and helps the read routine to achieve "byte 
synchronization". The sync byte is used to double-check the 
byte synchronization and is redundant. 


In the ESF firmware, the subroutine "WPREAM" writes the above 
stream of bits plus the record type byte (which will be 
defined in the next three sections). The record type byte is 
passed to this subroutine in the L register, and the 
subroutine also clears the E register for checksum 
computation. 


The subroutine "RPREAM" searches for the beginning of record 
stream and reads the record type byte into D register. It 
also clears RAM location 401AH for checksum computation. 


T-4. File Mark Record 


Records on an ESF tape are divided into groups called files. A 
special record called file mark record is used to separate the 


files. A file mark record has a record-type-byte of between 
hex 80 and FF, and two arbitrary bytes following the record 
type. (The extra two bytes enable the read routine to check 


the parity of the record type byte.) 


An empty tape (with 0 files) should have a file mark record 
with hex FF near the beginning of the tape. A tape with 1 
file should have the above file mark record FF followed by one 
Or more data records (see Section T-5) or program records (see 
Section T-6), followed by another file mark record FE. In 
general, file n consists of one/more data/program records 
preceded by a file mark record with the 1's complement of n as 
record type, and followed by a file mark record with the 2's 
complement of n as record type. File number n must be 
consecutive and started with 1. There cannot be more than 127 
files. 
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The subroutine "WRPRE" is used to write file mark record. The 
record type is set up by the caller and stored in the L 
register. 


T-5. Data Record 


A data record has a record-type-byte of 00. This is followed 
by a two-byte data size count, the body of data, and a 
checksum byte and two arbitrary bytes. The data size count is 
the byte count of the body of data, and is written lower-byte 
first, high order byte next. The body of data is usually a 
dump of memory block. The checksum byte is the two's 
complement of the sum of all the bytes before it in this 
record. The two arbitrary bytes following checksum enable the 
read routine to check the parity of the checksum. 


The subroutine "WRTWO" and "RDTWO" are used to write and read 
the data size count. The subroutines "WBLOCK" and "RBLOCK" 
are used to write and read the remaining part of a data 
record. 


T-6. Program Record 


A program record has a record-type-byte of 01 through 7F hex. 
This is followed by the sequence: 


(a) A two-byte program address, low order first, high order 
next. This is the beginning address of the block of 
memory being copied to tape during "SAVE". It is also 
used as the beginning address of memory for "LOAD", if 
and only if, item (b) below is not 0000. 


(b) A two-byte auto-start address, low order first, high order 
next. If this is not 0000, the ESF firmware will JUMP to 
this address after the program is loaded into the memory 
during a "LOAD". If this auto-start is 0000, special 
action is taken during "LOAD". 


(c) A two-byte program size count, low order first, high order 
next. 


(d) The body of the program. 

(e) A checksum byte which is the two's complement of all the 
bytes in this record (including the sync byte) before 
itself. 


(f) Two arbitrary bytes. 


EXATRUN 


OOO 
2000 
300088 
3004 
2007 
200K 
SQ0F 
BoOL2 
S015 
BOS 
S018 
SOLE 
S021 
3024 
BO27 
202A 
2020 
SOO 
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(ooorn) 
(00146) 
(OOFB) 
(401A) 
(2802) 
(40A2) 
COFAF ) 
(40B1) 
(1L7AZ) 
(1D1E) 
(1E4A) 
(1LAFS) 
(40E4) 
(Z2B1C) 
(4012) 
(4004) 
(O32A) 
(LEE) 
(1LAZB) 
(1075) 
(1058) 
(40A4) 
(40F7) 
(40A0) 
(1377) 
(1AES) 
(OOAD) 
(0087) 
(OOBB) 
(4014) 
(4034) 
(OS3FB) 
(0060) 


38734 
ZAE4Z4O 
Pete 


eyracpepoeweges 


OS 00 by io G 


gh DMM D 


Voth hae tg 


tt to 


te 
NE 


R 


oo001 
Ooo? 
OoOos 
OOgd4 
o005 
OOO’ 
QO007 
QOo08 
ooo 
OoOLd 
Oot1t1 
OoO12 
OOLS 
oOo14 
OoO1S 
QOOLS 
OO17 
Oo1s 
oot? 
Q020 
OoD1 
OOZ2 
OO2S 
Oor4 
0025 
OO24 
QOOL7 
Oo2s 
OoO2? 
oo30 
oOos31 
OO82 
OOS 
OoO34 
OO3S 
OO 
OO37 
OCS 
OoO39 
OoO4d 
OO4l 
O04? 
O043 
O44 
0045 
OO4S 
0047 
0043 
O04? 
oOoea0 
NOS 1 
OO32 
OT bat 
OOS 
035 
OO4 
QOR7 


TR 
SYNC 
CEI 
BSRAM 
BSINT 
BSLIN 
ESSFRN 
BSMEM 
BSERR 
BSCONT 
BSFCE 
BssF ING 
BSH 
BSTEXP 
RIS INTH 
BSRST2 
RSPRTIC 
BRSCLR 
BSROY 
BS INC 
BSEKE 
BSBGNF 
BSENDP 
BSMAXP 
RSS YNE 


Et 
ER 
Eris 
Ei 
Eta 


EG 


Emil 
Emil 
Emu 
EM 
Eritt 
Et 
Emu 
Eu 
Em 
EQui 
EM 
Ertl 
ECW 
Eu 
Et 
Em 
Er 
Eau 
Em 
Em 
Emu 
Ei 
Er 
Ei 
Et 
EQu 
Eau 
Emil 
Ems 
EG 


OCIH 

14H 

OF BH 

401AH 
S BOSH 
4O0Q7H 
OF AFH 
40B1H 
1? ASH 
1D1EH 
1E46H 
LAFSH 
40E4H 
ZBICH 
4012H 
4004H 
OSZAH 
LESH 
1AZBH 
10:75H 
105BH 
40A4H 
40F°H 
40AOH 
1297H 
TAESH 
OATIH 

OA7H 

ORBH 

4O14H 
4034H 
O.SF BH 


Seee +H VECTORS 424 #24 


s 
? 


CRG 


s000H 
REWIND 
REAL 
WRITE 
WECIF X 
SAVEA 
FBOF 
SELECT 
HL,» (BISHL. ) 
BSICNT 
FRCIF X 
WRITEX 
WECIF 
NEWA 
WRECIF 
ERROR 
GETN 
ALIT i 
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HY ey 
O34 
aL © po 
3036 
3037 
403 33 he] 
3039 
ROA 
3030 
2040 
3043 
30446 
3048 
BO49 
304B 
3040 
T04E 
3O4F 
3051 
BOS52 
3055 
3058 
305B 
305E 
3061 
3064 
2064 
O43 
SO04B 
306E 
3070 
3071 
3073 
2074 
2079 
307C 
ZO7F 
O80 


6 G8 63 O23 
Aaah 


371040 
218230 
2204409 
ZAB1L40 
S619 
=B 
3697 © 
=B 
346C3 
2B 
36FO 
2B 
2253140 
ZLASS4 
CO7Vs5 
113200 
COEBSLE 
SA1LA40 
ED44 
SS0E 
215037 
221440 
C406 
4F 
ak 


Se: Std 


Bae ein 


COFSIA 
ZAA4S40 
2B 
1394 


E3 
70 
FEB 
ZOOZ3 


0053 
o0s? 
0060 
0061 
O062 
0063 
0064 
0065 
0064 
0067 
NOES 
D069 
OO7O 
0071 
Q0O72 
Q073 
0074 
0075 
OO74 
0077 
0073 
0079 
eler=18) 
oost 
OoOs2 
Ooo33 
oOos4 
0o0s5 
O086 
0037 
oo8a 
o0s3? 
oavg 
oo91 
OOV? 
OOS 
OOPS 
OOF5 
OOVA 
0097 
COCs 
OO?F 
0100 
OL1ol 
0102 
0103 
0104 
0105 
O1L106 
0107 
0108 
O109 
o110 
O111 
O112 
O113 
O114 


WHERE N=0 FOR 
1 FOR 
2 FOR 
3 FOR 
4 FUR 
5 FOR 
& FOR 


we we we ve we vO we ve ve we we we 


START 


ST1 JP 

AUTO CALL 
LD 
DEC 
JR 


s#2#% MAKE BASIC 


HHH HHH OSYSTEM wee HHH 
#7? /LS24N 


@LOAD 
@LOAB 
@LIOAD 
@LOAD 
@LOAD 
NG@ LOAD 

KEYBOLNCE 


Bi tye 


rPrrpryp 


(BSRAM),A 

HL» CHECK 
(BSRST2)>HL 

HL» (BSMEM) 
(HL), BSSYNE/254 
HL 

(HL), BSSYNE MOD 
HL. 

(HL) » OSH 

HL 

(HL), OFOH 

HL 

(BSMEM).> HL 

HL» HEAD 

PRTSTG 

DE, 50 

BSCLR 

A» (BSRAM) 


Z,ST1 

HL» CEBNC: 
(BSKI),HL 
A;4& 

CA 

5 

NZ,LOADA 
BSR 

BSF IND 

HL, (BSBGNF ) 
HL 

BS1 

LOOK FOR “@* ###* 
(SP),HL 

A>L 

BSEXE Mon 254 
NZ>IHL 


256 
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3088 7¢ o115 LD A,H 

2089 FE1D 0114 cP BaEXE/256 
S0O8B ES OLL7 CHIL EX CSP)>HL 
soa C2781 0 o113 IP NZ,BSINC 
308F D7 O11? RST 10H 

20?0 FS OL120 PLsH AF 

30°11 E4OF OL121 AND ODFH 

zovs FE4O OL1s2 cP “er 


3095 2502 O123 IR ZH 
30977 Fi O124 PoP AF 
3078 > O125 RET 


2097 Fi O126 CHS PoP AF 

B0OVA Fi O1L27 POP AF 

30°R [17 O1ss RST 10H 

BO? Be05 O129 IR Z,CH4 
SOVE FESR O1L30 iP a: 

BOAO 2O14 O131 JWR NZ,CHS 
B0A2 07 O1323 RST 10H 

BOAS BAS QO1v3s3 CH4 JR Z,5A0 
SOAS COic2B O134 CALL BSIEXP 
30AS FS O135 PLUSH AF 

BOAY FEOS OL346 rTP & 

S0AB ODF O137 JR Ni, CHS 
SOAD CDR7234 O13 TALL SELECT 
SORQO C24A1eE O139 JP NZ, BSFCE 
SOBS Fi o140 a a AF 

20B4 7E O14. LD A> (HL) 
SOBS CALEIN O142 IP Z» BSCONT 
30BS 111530 O143 CHS LD DE, BASIC 
S0OBB OS O144 FLUSH DE 

SOBC FEAD 0145 iP BSiTsv 
SOBRE 2545 O146 JR Z,SAVEB 
2000 FEA7 0147 CP BSCLB 
S002 CAS231 0143 iP Z>LOAD 
7205 FEBB O14? CP BSICNW 
zoc7 2Ssit O150 IR Z,NEW 
BOn? 2ZE440 OLs1 Lo (BSHL)» HL 
Socc ZABL4O OLS. LO HL, (BSMEM) 


30OCF 22 OLS INC HL 
3000 22 O154 INC HL 
3001 EE? o1s5 IP CHL) 
3002 D7 O1S6 GETN RST 10H 


2003 O&O O157 LO C0 

32005 2809 o153 JAR Z,6T1 

3007 COiLczB OLS TALL BSIEXP 

SODA FE44 O1460 i od 100 

SOD D24A1E O161 CHé JP NC, BSFCE 

SODF 4F O142 LD C,A 

SQ0EQ 22E640 01463 GT1 LD (BSHL)» HL 

S0E3 79 0144 LD ALC 

30E4 B7 0165 OR A 

30ES ty O1456 RET 
O1467 
01438 
OL? 
O170 $$... “@NEW", “@NEW1", ETC. ... 
O171 $ ° 


#e% ADDED BASIC COMMANDS ##+# 


we ve we 
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30E& CDD230 O172 NEW CALL GETN 
S0E9 210534 0173 LD HL» NEWMSG 
S0EC (2D7935 0174 TALL PRT'STIS 
S0EF 41 o175 LO HO 
30FO COSF32 O17 CALL NEWA 
SOF2 FS O177 FUSH AF 
30F4 E&B7 0173 AND OB7H 
SOF4 2009 O17? IR NZ;NWO 
B0OF3 COAFOF 0150 TALL BSPRN 
30FB 21ICTE34 oO181 LO HL, BYTEMSG 
S0OFE cn7?35 0192 CALL FRTISTG 
3101 Fi 0183 NWO Por AF 
2102 CSBFES1 0184 JP LR4 
O1ss 3 
0196 3... “@SAVE1%, “@SAVEZ", ETC. ... 
O187 3 
3105 cCop230 O183 SAVER TALL GETN 
S10os 210 OL189 SAO JR Z,'3Al 
2108 2B o190 REC HL. 
Z10B D7 O19. RST 10H 
310 251B oO192 JR Z,3A2 
S10E Cr O173 RST 3 
BLOF 2c O14 DB ae as 
3110 cp4731 0195 CALL INTGR 
S113 D5 O194G FLUSH ne 
3114 #2CF 0197 RST 3 
S115 se O17ve DB "ye 
3116 04731 OLs? CALL INTGOR 
3119 O88 O200 PLUSH DE 
311A 111530 O2O1 LD CE, BASIC 
S11D 2819 O202 JR Z,»SA3 
3S11iF CF o203- RST 3 
3120062 O204 OB eget 
Biz. 04731 O28 CALL INTGR 
3124 2812 206 JR Z,5A3 
3124 39719 O207 SAL JF BSSYNE 
3129 COrPS1A oO208 SAZ TALL BSFIND 
2120 23 209 ING HL. 
S120 6EDSBA440 oO210 LIt DE, (BSBGNF ) 
3131 EDS O211 SBC HL,» DE 
3428 05 O?P12 FLUSH DE 
3134 ES O213 PUSS HL 
2135 110000 O214 — LO DE,O 
3133 210634 O215 SAS LO HL»WRITMS 
313B CDO7935 N216 CALL PRISTG 
BL3E 679 O217 LO At 
B13F C1 O21 PoP Be 
3140) «6E1 O219 POP HL 
3141 CDS233 0220 TALL SAVEA 
3144 C3OFB31 O22 1 AP LR1 
3147 £5 O222 INTGR PUSH Bit 
3148 CDO22B O23 CALL BSINT 
314B 2B O224 DEC HL 
314c 07 O225 RST 10H 
3140 1 OP SA Por Br: 
S14E S2ZE640 . O227 LO CBSHL) , HL 


S151 OnE RET 


EXATRON STRINGY FLOPPY FIRMWARE FOR TRS-So 


0229 
0230 
O231 
O232 


2 
2 
s 
B] 


3152 cCop2so0 Loan CALL 


3155 21O0F34 O233 LOADA LD 
B158 cn7v35 O234 CALL 
315B 2AA440 O235 LD 
B1ISE 114400 O236 LD 
S141 19 Q237 raya) #) 
3142 EDSBA040 O23S LO 
2146 EDS2 O23 SBI 
2148 ES O24G PUSH 
3169 Z2AAZ40O O24t Lo 
314640 23 0242 INC 
2140 7 O243 LO 
Z164E BS 0244 OR 
S1i6F 2508 0245 IR 
3171 © 2AA440 O24és LD 
3174 EDSEF?40 0247 LD 
Bi7s 37 a245 ' SCF 
317? EnS2 O249 SBC 
S17B ES O250 EX 
B17 «6FDE! O2Si Lot POP 
S17E 210000 O252 LD 
3131 ES O253 PLISH 
3182 4l O254 LD 
Bi3s3 SEFF : o255 Lo 
3195 79 O256 LD 
3136 B7 0257 OR 
z187 62001 OLS IR 
3139 AF o259 LD 
318AQ  CO34327 o?6o0 LO CALL 
3130 cCp47364 O241 LOS CALL 
3190 8 2oO45 O262 JR 
3192 7A 0263 Lo 
Z19s 607 0264 OR 
3194 ZEF7 O265 ; JR 
S174 FASD31 O2466 IF 
Bier Pa 02467 SUB 
319A AS O24 AND 
319B ZOFO O269 IR 
3190 CooOns7 0270 CALL 
31A0 2058 . 0271 ulR 
S1A2 co Q272 RET 
Z1AS fo 0273 RET 
S1A4 42 274 LO 
31A5 ES 0275 PLUSH 
31A& DDE1 0276 POP 
Z1AaS ES 0277 PLISH 
Sia? E1 0278 POP 
31AA OO 0279 NOP 
S1AB CDOB37 0220 CALL 
S1LAE 204A o231 JR 
S1BO 42 OFS2 LD 
S181 7A O223 LO 
S1iB2 BS O234 OR 


31B3 Bese 0235 IR 


eee “@LOIAD ? 


s @LOADL “ ? ETC. ees 


BETN 
HL» READMSG 
PRTSTG 


HL,» (BSBGNP ) 
DE, 100 

HL» DE 

DE, (BSMAXF) 
HL, DE 

HL 

HL» (BSLIN) 
HL 

AH 

L 

Z,LDO1L 

HL, (BSBGNF ) 
DE, (BSENDP ) 


HL, DE 
(SP).HL 


RPREAM 
NZ»LRTN 
A,D 

A 

Z,LO 
M,LD3 

H 

L 
NZ,LIV3 
ROTWO 
NZ»LRTN 


ROTWO 
NZ,LRTN 
H,[ 

A,0 

L 
Z,LUANB 


FABE 0005 
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31B5 
S1BS 
3S1BS 
S1LBY 
3iBA 
S1BD 
SiBF 
S10 
3101 
site 
314 
S105 
SLA 
S107 
FLIT4 
3100 
2ica 
SLCF 
3100 
3101 
3102 
3104 
S107 
S108 
210°? 
Z1DA 
3100 
S41 DF 
S1LE2 
S1E4 
1&7 
SLES 
S1EA 
S1ED 
S1EE 
S1LEF 
S1F 1 
S1F2 
S1F4 
SLPS 
S1FA 
S1FB 
S1IFE 
3201 
3204 
3207 
3209 
3200 
320E 
S20F 
3211 


ES 
FDE1 
ES 


El 


CDOR37 
2038 


2010 
ZAAZ4SO 
23 

7e 

BS 
211132 
SEOE 
217720 
1309 
SABORS 
B7 
Boos 
2Litss 
Es 

AF 
130A 
ao 
FOES 
DOZAA440 
18c0 
El 
COoLs 37 
213735 
LATIF 25 
ROIeat35 
1E2A 


1SEA 
DOLZF 740 
2AA440 
ES 
MSESLA 
SL3i35 
O73 
DDES 


0236 
0237 
oOvss 
oO2g9 
O2970 
O2?1 
O22 
O2VS 
O24 
0295 
OBA 
O97 
O27S 
OL? 
O200 
OsOL 
O302 
O303 
On04 
O305 
O304 
O207 
O3083 
O309 
O310 
O211 
O12 
O313 
O314 
Os31S 
O3146 
O2317 
O213 
Os19 
O320 
O32 1 
Onn? 
Os23 
O324 
O325 
OALS 
O327 
O328 
O229 
O330 
O33 1 
O32 
O33 
O334 
O35 
O234 
OOS 

O333 
Oss 
O240 
O24 1 
O42 


Li4 


LDS 


LD7 


LOADE 


ABT 


PUSH 
PoP 
FLUSH 
FOP 
MALL 
IR 
LO 
POP 
ADD 
IR 
PLUSH 
PUSH 
PrP 
PALL 
JR 
POP 


ROTWO 
NZ,LRTN 


RBLIOICK 
NZ,LRTN 
De 

IY 

HL 

AylL 

H 

NZ,LD4 
HL, (BSLIN) 
HL 

A>H 

L 
HL,RTNBS 
Z,LD7 
HL, AUTO 
LD7 

A>» (BSSFT > 
A 

Z>»LO7 
HL, ABT 
(SF), HL 
A 

LAL 


(SP),1Y 

IX, (BSBGNP ) 
LO4 

HL 

MTCFF 

HL, DONEM SG 
Z»PRTSTG 
PRTERR 

E, 2AH 
BISERR 

A>» 20H 

A 

LR1 
(BSENDP), IX 
HL, (BS BGNF) 
HL 

BSFIX 

HL, BReEM IS 
PRTSTG 

Ix 
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haba bo be 
fbb bo 


303 09 Obs bg 


3242 
3243 
3244 
3247 
324A 
3240 
S24F 
aD) 
3252 
3254 
3256 
3258 
3259 
3 25C 
325D 


325E 


325F 
3260 
32461 
3264 


El 0343 
AF 0244 
EnS2 O245 
O246 
TOAFOF O47 
3E2C OF4e 
TDZAO3 O249 
El O350 
DAF OF O351 
SE2C 0352 
TOZAOR O353 
FOES 0354 
El 0255 
DAF OF O2546 
12c5 0357 
O358 
O359 
360 
O261 
03462 
343 
0364 
0265 
O346 
0367 
0263 
O3469 
O370 
O371 
0272 
O373 
O37 4 
en] O375 
05 O74 
CO3437 O277 
CO4E37 O273 
SA4038 O379 
E404 OREO 
OF OmS1 
2OO7 Ome? 
ELI7S OFS 
E404 Om24 
25F2 O285 
AF 0334 
CO2537 0287 
D1 O38 
cl O39 
i? 0390 
O391 
O3?P2 
O393 
Orsv4 
0395 
es OBA 
ous O207 
COS327 : 
E401 


BRITO 
BIT} 
BIT2 
BIT3 
BIT4 
BITS 
BITS 
BIT? 


Pa] we Ye ve we wh ve ve we ve us ve we ve Ve ws ve ves 
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POF HL. 

XOR A 

SBC HL, DE 
FLUSH DE 
CALL BISSFRN 
LD As “.” 
TALL BSPRTI 
POP HL 
CALL BSPRN 
LD A,“,* 
TALL BSPRTE 
PLISH IY 

PP HL 
CALL BSPRN 
IR BFO 


### SUBROLITINES FOR ASMB CALL ##* 
VECTORED FROM 


SOQQOH ETL, 


ALL RETURN WITH Z FOR CORRECT 
NZ FOR ERROR WITH REG.A = 


--- WRITE WITHOUT DECAL 
--- USER HIT BREAK 

--- WRITE PASS EQT 

~-- READ PARITY ERROR 
--- READ CHECKSUM ERROR 
-~-~ RECORD TOO LONG 
~~~ VERIFY ERROR 
---— ECF READ 


».» WIND TAPE TO BOT ... 


CEWIND = FLUSH Biz 
PLUSH DE 
CALL MTCN 
TALL DELAY 
RWOL LD A» (BSBRK ) 
AND 4 
RRCA 
JR NZ,RWOF 
IN A» (fm) 
AND 4 
JR Z,RWDOL 
XOR A 
RWOF CALL MTUOFF 
POP DE 
PoP BC 
RET 
3... ERASE TAPE ... 
3; H = STARTING FILE NUMBER 
+ HL RETURNS NUMBER OF BYTES 
NEWA PUSH BC 
PUSA CE 
TALL MTONW 
AND 1 
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Ihara taba 


2060 
7 
FEO2 
3013 
CO4232 
2062 
SES5 
S21A40O 
ED7? 
CO4bs7 
ZEFF 


mps4c28 


OAO1 
En41 
Roa v4 
2010 


E404 
2000 
COE DAS 
20232 
FS 

Fil 

14 
EOS 
SSEC 
E4FH 
COS 37 
Ot 

m1 


it 


0400 
0401 
o4o2 
O43 
0404 
O4o5 
O404K 
0407 
0408 
O40 
0410 
O41 
O4i2 
O413 
O414 
O415 
O414 
0417 
0418 
O419 
O420 
0421 
0422 
0423 
0424 
0425 
Og24 
9427 
0425 
0429 
O420 
O41 
0432 
O433 
O4I4 
0435 
0434 
04:37 
433 
04239 
0440 
O441 
0442 
0443 
M444 
0445 
O444 


0447 


0443 
O449 
0450 
0451 
O4t2 
O453 
0454 
O85 


O44 


NW 


NWS 
NW4 


NW7 


NWS? 


NW10 
NWi 1 


NZ» NW11 
A,H 


NC» NW? 
REWINE! 
NZ»,NW11 
A> ‘35H 
(BERAM),A 
(>A 
DELAY 
L>»OFFH 
WRERE 
NZ>»NWi1 
NW:3 
RPREAM 
NZ»NW11 
A» D 

H 
NZ,NW2 
B,1OH 
NW4 

LL» O8OH 
WPREAM 
NZ,NW11 
E,'?0 

H, OFFH 
DH 
WREIT 
Z:NWA 
B,1 
WRBIT 

E 
NZ>NW7 
B,1 
(2),8 
RFEREAM 
NZ>NWil 
AD 

L 
NZ»NWEe 
HL > -1 
HL 

A» (0) 

4 

NZ, MW1LO 
ROBYTE 
NZ,>NW1O 
AF 
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0457 3 
0453 3... READ DATA BLOCK ... 
0457 3 HL --> BUFFER 
0440 3 BC = BUFFER LENGTH AT ENTRY 
0461 3 RECORD LENGTH AT RETIRN 
0442 3 

320A ODES 04463 READ PLISH Ix 


S200 05 0464 FLUSH DE 
3200 €5 0465 PLESH HL 
S20E DOoOEL 04446 PoP IX 
S2EO ES 0447 PUSH HL. 
S2E1 FDRES 0448 PLisH IY 
B2ZES C5 O469 PUSH Bac 
S2E4 79 0470 Lo AL 
B2E5 ZF O47 1 CPL 
S2E& 4F 0472 Lo A 
Z2E7 3 0473 Lo A,B 
StES oF 0474 CPL 
BRE? 47 0475 LD BLA 
SZEA CS O47& FLUSH Br: 
S2EB FOE1 0477 PoP IY 
SPEED Cos437 0473 CALL MTN 
SEFO D434 0479 RLP CALL RF REAM 
SSP 2025 O40 JR NZ>RRTN 
S2F5 7A 0431 Lo A,0 
S2FG 87 O42 CR A 
BEF7 SEO4 0453 LG A, O4H 
32F9 DOF o4sg JR NZ>RRTN 
S2FB DD7EOO 0435 LO A, (IX) 
B2FE CDOR:7 04346 CALL ROTWO 
BBOL 2017 0487 IR NZ»RRTN 
3302 42 O4ee LD H,D 
3304 EB Oany EX DE» HL 
3305 FOL? 0490 — ADD IY, DE 
2307 ERB O47, EX DE> HL 
SEOs mwe1B O44? IR cy BUFE 
B30A De O44 RET £5 
S30B OO O4rg NOF 
B30n ES 04975 PUSH HL 
s30n El O4VG FOP HL 
RDASZS O497 CALL RBLCCK 
2007 0478 JR NZ»RRTN 
lap! 499 POP DE 
FDI? oO500 argo 1Y,TeE 
FOI O301 INC LY 
FOES O502 FLUSH IY 
LOL537 O503 RRTN TALL MTOFF 
C1 O04 PoP Be: 
FOIE t o505 POF IY 
El O04 FOP HL 
O1 o507 PP DE 
jajal=pi o508 PoP Ix 
ne o5309 RET 
BELO O810 BuUFE LO A, 20H 
B87 O11 OR A 
33s 1 SFO : O81L2 JR RRTN 
Q513 3 


s, 
= 
nee 

m 


Jb 0 68 6 oo oo oo 


Wl Ob Ob oo to Oo Od Ge 


ae Oe Oe Ne ee a) 


Vibe COMO DASe Hak 


1 4 6 Oa 
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O514 3... WRITE DATA RECORE ... 
o815 3 HL --> BLIFFER 
O514 3; BC = BUFFER LENGTH 
oS17 3; QO = DELAY TIME 
O318 3 
Does QOS51% WRITEX PULSH IX 
ES OF2O .PLUSH HL 
Hoe 1 O52 1 Par Ix 
ES Os22 Puts HL 
os O523 PLeSH i 
cS os24 PUSH BIZ 
COB337 O525 CALL MTCINW 
2O1L7 OF 2S JR NZ,WRTN 
ZEOO OS27 LO LL. 
ROV235 O322 TALL WFREAM 
BOLO OS29 IR NZ,WRTN 
Et OF30 PIP HL 
ES OS31 PLUSH HL 
DO7VEOO O532 LD A, (IX) 
COIB34 OSs CALL WRTWE 
S006 O334 WR NZ,WRTN 
ao OS35 NOP 
El O5SA PoP HL 
ES OF37 FLISSH HL 
COot735 o532 CALL WBLHTK 
COS537 O539 WRN CALL MTOFF 
Ei 0540 PoP HL 
Ci oOs41 PCr ce 
ES o542 PLSH HL 
ec 4037 o543 CALL Z,CINDLY 
1 0544 PoP BC: 
El O845 PoP HL 
DOE 1 oOS4a4 Pimp Ix 
a) O547 RET 
5 0548 WRITE PLUSH DE 
1420 OF4? LD fi, 4&1 
COSA O80 MALL WRITEX 
d Ot OSS 1 PoP ne 
: Cv oss2 RET 
OSS 3 
O554 $$... WRITE BUFFER & EOF ... 
o555 3 HL ~-> BUFFER 
osS6 3 BC = BUFFER LENGTH 
oS557 3 A = FILL NUMBER 
O553 3 
3344 FS oO5a% WRECF PLUSH AF 
3345 «78 05460 LO A,B 
3346 Bt O561 ~ CIR c 
3247 C4Stcn3 O54é2 CALL NZ,WRITE 
Ba4Q Fi 563 POP AF 
S34B 13801 O544 IR WEF 


O565 5 

OS44 3 

O5467 § 

O54 § 
460 cso OS427 WECIF X Nee A 
6E CS : O870 WEF FPulsH Br 


.. WRITE ECF MARE ... 
A = FILE NUMBER 


EXATRON ‘STRINGY FLOPPY FIRMWARE FOR TRS-S0 FAGE OOt1 


oS o571 PUSH DE 
ES oO572 PUSH HL 
ZF 0573 CPL 
F480 0574 : OR SOH 
br O575 LD L5>A 
TOV3337 OS746 CALL MTIINW 
rosA39 O577 CALL 7,WRERE 
OLS37 oO578 CALL MTOFF 
Ei Oo7 9 FOP HL 
rd oO530 PrP De 
m1 OSS1 PCr Bc: 
co O522 RET 
OS83 $ 
Oo584 :... WRITE PROGRAM FILE ... 
O535 3 HL = LOAD ADDRESS 
o5386 $ DE = START ADDRESS 
0587 3 BO = LENGTH 
o583 3 A = FILE # (1 THRU ) 
O3389 3 
Bah ODES O590 SAVEA FLISH Ix 
4 FOES oOs91 PLISH IY 
& ES oOsv2 FLUSH Hi 
87 O05 O593 PLUSH DE 
Bs O54 PLUSH BE 
9 ES OS95 PIISH HL 
A DEL OS%S PoP IX 
Cr 6S O5?7 FLISH HL 
O 4F oO598 LO L:A 
E OSn7 PLISH HL 
MOF 0400 FUSH DE 
70 O60. Pop TY 
rs 0402 PLUSH Br 
93 0403 CALL MT NW 
Boda O404 IR NZ,SVEW 
a=) 0405 SV1 PALL RFREAM 
YOR 0408 JR NZ, SVEW 
2D 0407 LO AD 
SPE 0408 Ang L 
id a O49 JR NZ,5V1 
SEAL 0410 9610 LD B. 10H 
B3A3 LOFE O4114 SV2 DuINZ SV2 
B3AS cov23s O612 CALL WEREAM 
S3A3 2012 O613 JR NZ,SVE. 
22AA EDSA 0414 ADC HL, DE 
3232AC 6 6DTDES Q615 PUSH IX 
B3AE El O416 Por HL. 
SIAF COs B346 0617 PALL WRTW 
S3B2 ZOOS O413 JR NZ,SVEW 
32384 EDSA O419 ADC HL, CDE 
S3B4A FOES 0420 PUSH IY 
S3BS Et 0621 FaopP HL 
A3B9 <COSBR4 0422 CALL WRT Wi 
B3BC0  2O6F 04623 SVEJ IR NZ,SVE 
0424 Ang HL, DIE 
O425 ALN HL, DE 
O424 Pir HL 


O427 MALL WR TWEE 


2066 
ES 

Et 

Oo 
COI735 
SOSE 


2049 


TOOB37 
2020 
EO 

00 

70 
ODES 
E1 

BL 
2065 
7A 

Br 
ZzO4G1 
COORS7 
2OZB 


204F 


Zo1g9 


0623 
N429 
O430 
O431 
432 
O433 
O434 
O435 
04636 
0437 
O438 
Q4639 
0640 
0441 
0642 
O43 
O444 
0445 


646 ! 


0647 
443 
O449 
0450 
O451 
0452 
04653 
0454 
0455 
04546 
0457 
O4583 
0459 
0440 


O472 
0473 
Q474 
04675 
O476 
O477 
0473 
O4&79 
Q430 
OAS 

O422 
OS 
O44 
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NZ, SVE1 
HL 
HL 


WELCHEE: 
NZ,SVEL 


ROTWO 
NZ,SVR 
NZ 


AaL 

Ix 

HL 

L 
NZ,ERR 
ALD 

H 
NZ,ERR 
ROTWIO 
NZ,2VR 
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3410 El 0685 POP HL 
3410 ES O46846 PLUSH HL. 
341E BD 0637 cP L 
341F 2040 O485 IR NZ,ERR 
3471 7A O629 Lo 4,DB 
3432 Be 0490 CP H 
3433 «2o08Cc O67 1 JR NZ,ERR 
3425 cpco3.e O46492 SV4 CALL ROBYTE 
3422 2006 O672 JR NZ,SVR 
342A Co O494 RET NZ 
B42B PSOE O75 JR SVS 
2420 «El 06974 SVE PrP HL 
342E El O4?7 SVE1 Por HL 
S42F E1 O47 Pr HL 
3430 CN2537 O499 SVR CALL MTOFF 
ages td O70 POF Bc 
2434 Dl O7O1 Prop DE 
24235 €1 O7O2 POF HL 
3434 FOEL O73 POP Ty 
2438 DDE. O704 PoP Ix 
343Q C9 o705 RET 
2438 DO7EOoO O704 SVS LO A, (Ix) 
3436 BA 0707 CP D 
343F 2020 O708 JR NZ,ERR 
3441 DD2s O709 INC Ix 
3443 2 Q710 DE HL 
B444° 75 O711 LO A>H 
3445 56S O712 OR L 
444 E2534 R 0713 IP NZ,3V4 
3449 cCOomose 0714 PALL RDBYTE 
3440 FOED O715 IR NZ,3VR 
S44E O404 O716 LO B6 
3450 10FE O717 3V7 DJINZ SV7 
3452 cCocossé O713 CALL ROBYTE 
3455 ZOD O71? JR NZ,SVR 
Z457 3BA1LA40 9720 LD A, (BSRAM) 
2458 B7 O721 OR A 
S345B  2S0D 0722 JR Z,5V4 
3450 sEOA O723 LO A»10 
S45F 19CF 0724 SV6 JR SVR 
3441 3E4o 0725 ERR LO A> 40H 
3443 18CB O724 IR SVR 
O727 3 
o7>e 3... FINE BEGINNING OF BATA FILE ... 
O729 3; A = FILE NUMBER 
9730 3 
3445 cs O731 FBOFX PLUSH Br: 
S446 DS 0732 PLUSH DE 
3447 FS 0733 PISH AF 
3445 (D3437 0734 CALL MTON 
346B CD4aoss 0O735 OP 1 CALL RPREAM 
S44E 2005 O736 JR NZ,OP2 
3470 Fi 0737 POP AF 
3471 FS o73¢ PUSH AF 
2472 an 0739 . abt Ci 
3472 POFA 0740 IR NZ,OPL 


3475 CDESa7 O741 OFP2 MALL MT LFF 
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3473 Dt 0742 PoP DE 
3479 =~ 0743 PoP DE 
347Q CcC4037 0744 TALL Z,ONDLY 
347B Cl 0745 PoP BC 
347E ty 0746 RET 
347F OS 0747 FROF PUSH DE 
2480 61430 0748 LO Ct, 4&1 
S482 2046534 * 0749 TALL FRCOFX 
34355 1 O750 PoP DE 
3484 CC? O751 RET 
O752 $ 
O753 3... SELECT DRIVE ... 
0754 3 AF = DRIVE NUMBER 
O755 3 
3487 CA 0756 SELECT PUSH Bit 
439 FAFO O757 OR CF OH 
B4cQ  4F 0758 LD ZA 
348B EL7S O759 IN A» (im) 
3430 E408 O740 AND 3 
348F 79 O741 LO Ast 
3470 C1 O7 462 POP ar: 
3491 oO O743 RET NZ 
3492 €E5 0754 PSH HL 
24972 2AB140 0745 LOD HL» (BME) 
34976 22. O7454 INC HL 
3497 77 O747 LO (HLISA 
3493 E1 07 &i3 PUP HL 
B4eo C9 O749 RET 
O770 3 
O771 3:...PRINT ERROR MESSAGE ... 
0772 3 A = ERROR CORE 
O773 3 
24?A ES = 0774 ERROR PUSH HL. 
Z49RB FS O773 PUSH AF 
3470 COSr35 O774& TALL FRTERR 
Z49F Fil 0777 POR AF 
S4A0 El O773 POP HL. 
B4A1 cy O77? RET 
O730 3 
O731 see #48 STRINGS HHH HHH 
QO7R2 5 
34A> 48554154 0733 HEAD OB “EXAT? 
34A6 S24F4E20 0734 DB “RON * 
B4AQ S3545249 O785 DB ' “STRI°- 
S4AQE 4E475920 O76 DB “NGY ” 
S4B2 444C04F50 0737. DB “FLOP? 
3484 S059?2056 0733 DB “PY Ve 
S4BQ 45525349 O739 DB “ERSI- 
S4BE 4F4E2024 O7 270 OB “TIN 4° 
3402 2E3180 O791 DB “,1°,0R+S0H 
34C5 45524153 0792 NEWMSG O08 “ERAS” 
S4C9 49°4E472E O73 DB “ING.” 
34CD AE O7 24 Cg “, °+50H 
34CE 20425954 O775 BYTEM:G DB “ BYT* 
3402 455 S2EAE O76 sa) =} MES. °°. °+30H 
3404 S7524754 0797 WRITMSG DOB “WRIT? 


240A 4746472E O79 DB “TING, 
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340E 
340F 
34E3 
24E7 
S4E3 
S4EC 
Z4EE 
34F2 
24F4 
34FS 
34F 0 
3500 
2504 
2508 
350% 
S00 
3511 


‘at! 
nie 


E 


I Bt a 
t 


monn on 
oN Ui 


og or oa bo 


AE 
§2454144 
494E472E 
AE 
54455249 
44D? 
50415249 
54D 
43434543 
4BS355CD 
4F555420 
4F 442041 
45404F52 
ov 
54415045 
ZOS44F4F 
205343 4F 
S2D4 
57524954 
45205052 
4F544843 
54454480 
454FC4 
20455252 
4FS28D 
42524541 
4830 
444F4E45 
SD 


[B47 
SL11735 
POO 
IB4F 
213135 
2O2F 
CBI7 
210935 
2022 
BSF 
21LEES4 
2O1B 
B47 
Z1F 434 
2014 
BASF 
21LFC34 
2000 
B77 
2PI1ES34 
20046 
212735 
CBR7F 


O799 
OS00 
O8O1 
OBOD 
OO 
Of04 
oO3805 
O804 
0807 
Og08 
O309 
os10 
Osil 
O8si2 
O3813 
OS14 
0315 
O38146 
0317 


O#813. 


OS19 
O820 
Os21 
OBES 
O8S3 
824 
OS25 
QBL4 
O827 
0828 
OBL? 
CHE20 
OS31 
OSB32 
O833 
O34 
OO3S 
OBIS 
O2237 
O833 
OSSY 
O84o0 
O841 
O842 
O843 
0844 
M245 
0846 
0347 
08343 
0849 
O50 
Ossi 
O852 
Ogs3 
O54 
osss5 


DB “.°+30H 
READMSG DOB “READ 

DB “ING. 

OB “9 +80H 
VRFMSG OB “VERI“ 

OB SFO, YO +80H 
PERRMSG OB “PARI” 

DB “TC, oY" +20H 
CERRMSG DOB “THE” 

DB “RESUS, “M*+S0H 
OMMSG OB “EIT 

OB “OF M* 

DB “EMOR?’ 

OB “V"+SIOH 
TTSmMsG OB “TAFE? 

CB “ Fo" 

DB “ SHO° 

DR “Rt, ° TO +S0H 
WPMSG DB “WRIT” 

DB “E-PR? 

DB “TEC” 

DB - TE “y “D * ? +0H 
EOFM=G DB “Eta, “F°+S0H 
ERRMSG OB “ ERR? 

DB “OR, CR+S30H 
BREMSG DB “BREA” 

DB “KY, CRHZOH 
DONEMSG DB * DINE * 

DB CR+30H 
see #44 SLIB-SUBROUTINES #4 3% 
SPRINT ERROR MESSAGE 
PRTERR BIT OrA 

Lo HL> WPMSG 

AR NZ,PE1 

BIT 1,A 

LD HL, BREMSiG 

lR NZ, PRTSTG 

RIT 2A 

Lo HL» TTSMSG 

IR NZ;PE1 

BIT 3A 

LO HL», PERRMSG 

JR NZ,PE1 

BIT 4,A 

LD HL>CERRMSG 

IR NZ,PE1 

BIT 5,A 

LO HL» OMMSG 

wR NZ,PE1 

BIT 4,8 

Lo HL» VRFMS 

IR NZ,» FE1 

i HL> ECF MS 

BIT 7>A 


QO1S 
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S57 


La 


ba 
Sy 
boa 


fo a yl 


Oona on 
m0 wo oo 


TOD ao 


i oo a oo 


“C1 Ls 


mr) 


ach ca hen ch 
Lt 
ON Bhs 


i 


“fh 


ui 


cs 
LO7935 
212A35 


7E 


FS 
E47F 


CoeAo3 


3635 
321A40 
E72 
CO4B37 
Lo 
CD14:346 
ro 

oOo 
1800 
MOL 34 
ro 

8) 
O404 
1OFE 
32A1LA40 
E4L7F 
En7? 
are) 

(are) 
04605 
1414 
MDECSS 
ro 

a5 

S83 
9404 
CSEASS 
OO 

oOo 


O8SS6 
0357 
oO8ss 
oa8s9 
O40 
O46 1 
Osa. 
OH43 
O8464 
O845 
OS46 
O867 
Os49 
O86 
O87O 
O87 1 
O872 
O73 
O74 
oO875 
O874 
O877 
O878 
O79 
O20 
OS 1 
O882 
oseS 


Om? 0 
Cua 1 
Ons 
OSV 


0874 


0896 
O8?7 


OBIS 


OSS 
OVOO 
Oval 
OPO? 
oOvas 
oOv04 
ov0s 
OFOG 
OP?O7 
OPO 
ova 


P OFLO 


ovt4 
OF12 


PRINT STRING 


RET 
CALL 
LO 


LO 
ING 
PLISH 
AND 
CALL 
Pur 
RLA 
IR 
RET 


Zz 
PRTSTG 
HL» ERRMSG 


FPIINTED BY HL 


A» (HL) 
HL 
AF 
7FH 
BSPRTIC 
AF 


NCO, PRTSTG 


s;WRITE PREAMBLE, SYNC, 
; BYTE IN L AND TWO MORE 


WRE'RE 


TALL 
RET 
RET 
LD 
DINZ 
uP 


WFREAM 
NZ 

NZ 

B,4 
WEWE 
WRTWI 


sWRITE FREAMBLE, SYNC, 


AND BYTE IN L 


WRBLE: 


WREWT2 


WRLOF 


CLT 
MALL 
RET 
CALL 
RET 


DUINZ 
LD 
AND 
OWT 
NOP 


NOIF’ 
NCP 


HEH 

A, 35H 
(BSRAM).A 
(5A 
DELAY 

NZ 


'WREITS 


NZ 


B»4 
WREWTS 

A, (BSRAM) 
7FH 

(>A 
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0913 3 

O914 ;WRITE BLOCK OF HL 

O915 s;POINTED BY IX 

OV1LE 73 Hee 73/14 HHH 
3307 fps4600 O?717 WBLOCK LD BD, (IX) 
35°Q cCDoEESS O?18 TALL WRBYT 
S500 co OvV1L? RET NZ 
25CE ppss3 O?20 INC IX 
S200 =H P21 DE: HL 


@Z5D1 7e ave? LD ADH 
3502 BS OVI23 oR 


L 
S503 20OFO OvVe4 IR NZ;WRLOP 
3505 io OFES RET NZ 


3504 O4O1 QOP26 LO B,1 
S503 37 O927 SUB A 
3500 O73 OPPS SUB E 


350A S7 OVE? LO TA 
S508 <cCnecas Ovs0 CALL WRBYTE 
35 0E Co OFs1 RET NZ 
S50F co Ovia2 RET NZ 
S25E0O OO OPIS Nap 
S5E1 O404 OvR4 LD B.4 
SSES CREC3S5 ov35 TALL WREYTE 
S5EG CO. OVSE RET NZ 
3567 co 937 RET NZ 
S5E9 O405 oOvss LO B.S 
S5EAQ oOo OvV3S9 WREY Nap 
SSEB OO O740 NOP 

OvP4a1 § 

Ov42 ;WRITE BYTE IN D 

QOV43 3 ### LBB+37/14 xt 

OV44 Fete 42/14 Hee 

S5ER 10FE OvV45 WREYTE [IJNZ WRBYTE 
SSEE SALA4O Ov4& WRBYT LO A» (BSRAM) 
S5F1 EDV? 0947 CWT (I2),A 
a5F3 7 OV4as LD AT 
S5FQ Ova? ADD A,E 
S5F5 5 
SSPA OA 


35F2 2 OvS2 INC HL 
SSP 0014346 P53 CALL WRBIT 
int ae Ove4 nec HL 


S5FD oO o755 RET NZ 

35FE co OVS46 RET NZ 

SSFF 0402 Ove7 LO BR, 

3401 1OFE ovse WRIWT DAINZ WRTWT 
3403 TALA4O QO 959 LO A>, (BSRAM) 
3406 FASO OF40 OR ZOH 

3403 221A40 OVAL Lo (BSRAM);A 
3460B E4S7F OVE2 : AND 7FH 


3400 ELT? OV43 CIT (2),A 
S40F AF OV454 XOR A 
3410 9 OF4S RET 


Q946 3 

0947 ;WRITE B BITS IN OC 

OQvGiS s%## 116,97, 75/25 +44 
2411 ODCO7E9O ~ Ove? WRRITL LO Ar ¢IXx) 
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ee ae ae ed 


34 
o A 
34. 


A 


> 


> 
bP Oe 0 Oo 


oO oO 


Tne 


a p 
oo on 


Oo a 


ry 
Re RRR 


‘ 
™— ca 
TOMO Ni cM 


Pop > b 


3472 


E783 


E405 
roa 
Cs 


SALA4O 
CBOA 
SOLA 
EESO 
Eq7? 
EESO 
aye) 

(18) 

BF 
O404 
1OFE 
me1A4ao 
ELT? 
om | 
1008 
nm? 

(ara) 


CASS 


baba 
COEESS 
9) 

als) 

oo 

OO 

54 
O44 
RSeECcs& 


TOSES4 
TO 

7A 
D414 
249346 
3c 

OL 37 
CDCOIAA 
B21A40 
cy 
O414 
COLC37 
ED73 
F24034 
ERLo37 
ELI7> 


av70 
O?P71 
OV7S 
oOv73 
OPr74 
OV75 
OPTS 
O77 
O97S 
O97 


Ovo 


“e 
aX 


ea) 
20 0 0 ooo 


& 


~. 
, 

re 
~ 


~ 
~" 
Li 
~ 


OND UD bo hb. 


a7 
oOo OO OS 
rate 


On? td 
Ores 
OVIZ 
epg 
OVS 
OWA 
QOV7 
ODDS 
avy 
LoOdYg 
1001 
1002 


. LooR 


1OQ4 
1008 
1004 
1007 
Loos 
1009 
1010 
1O11 
1012 
1013 
1014 
1015 
1014 
1017 
1013 
101? 
1020 
1021 

1022 
1023 
19o24 
1025 
LOA 


WRBITS IN A» (iE) 
AND 5 
RET NZ 
WRBIT PUSH ac 
LO A,» (BSRAM) 
RRO 0 
IR Ni.WRZRO 
XOR BOH 
Out (2),A 
WROLE XOR . SOH 
NOP 


cP A 
LO BS 
WREWT DINZ WRAWT 
LD (BSRAM),A 
OUT (CA 
POP BC 
DUNZ WRBITL 


WRZRO NOP 
JP WROLK 
s;WRITE TWO BYTES IN HL 
Sete G/14 2% 
WRTWO LD Dok 
TALL WRBYT 
RET NZ 
NOP 
NOP 
NOP 
LD OH 
LO B,4 
AP WRBYTE - 


SSEARCH PREAMBLE AND 
; SYNC, READ BYTE IN — 
SHH SL we 
RPREAM CALL PR1 
RET NZ 
LO AD 
SUB SYNC 
JP NZ,RPREAM 
INC A 
TALL WAIT 
CALL ROBYTE 
Lo (BSRAM)>A 


PR1 LD B,20 
PR2 TALL CHE BRE 
IN A, (2) 
JP P,PR2 
PR TALL CHE BRE 
IN A, (0) 
IF MPR 
FR4 IN A, (0) 
IP M,PR1 


Oo1s 
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ot 
~ 
m 


es 
> M oo & 


~ 
é 
‘ae! 


cee Os 


pa ee ek ie et Et ee 
i Ee? a Ya 


> > bp 


GO os 
on te 


fy te 
Le 
a) 


RATS 
IG9R 
34D 
S4AQ 
Z4AZ 


2485 
34A8 
s4AY 
S4AA 
24AB 
S46éAF 
Z4B0 
S4B1 
Z4H2 
S4B3 
B4B4 
3485 
S483 
34BRB 
246BC 
Z4BE 
3401 
2604 
2605 
409 
BGI? 
340A 
3600 


S400 
S4CF 
2402 
3604 
3605 
7606 
246D8 


ED7S8 
F27S26 
3E06 
3EO46 
COiL%37 
En7s 
F2S5E346 
ED7S 
FAS436 
CaSE34 
EOS 
COA S37 
1008 
O4 
ELI73 
F27534 
enss 
FAPER4 
SEQOQ 
CSOF 34 


TOCA 
8) 

co 
Do7200 
DES 
2B 


S3EO2 
COLea7 
CDCOII4 
8) ; 
SALA4O 
B7 


ED7S 
FADAE2A4 
SEOs 
B7 

cy 
Ens 
FADA34 


R 


1027 PRS 
1028 
1029 
10230 
1031 
1032 
1033 
1034 FRS6 
1035 
LOA 
1037 PR7 
1038 
1039 
1040 
1041 
1042 
1043 PRS 
1044 
1045 
1044 
1047 3 


1048 sREAD BLOCK 


1049 ;POINTED BY IX 
1050 s### 464/91 Hee 


1051 RBLOCK 


1052 
1053 
1054 
1055 
1054 
1057 
1052 
105% 
1040 
1041 
1042 
1042 
1064 
1045 
1044 
1047 
1048 
1069 
1070 
1071 
1072 
1073 
1074 3 
1075 ;READ 


1074 3##% 29/33 +H 


1077 ROBYTE 


1078 
1077 
LO30 
1031 
1082 REO 
1083 


IN A, (i) 
IP PLFRS 
LD A,4S 
LD A»4 
TALL WAIT 
IN A; (tC) 
JP PO PRI 
IN A, (0) 
JF M» FRA 
IP PR7 
LI A,5 
CALL WAIT 
ThinZ PR4 
INC B 
IN A, (Ir) 
JP PL PRS 
IN E, (tm) 
uP MPRE 
Lo ALO 
IP RE1 

OF HL 
CALL ROBYTE 
RET NZ 
RET NZ 
LO - (IX),0 
INC IX 
DEC HL 
NOP 
PLISH HL 
Por HL 
LU A>H 
OR L 
IF NZ, RBLOCK 
TALL ROBYTE 
RET NZ 
LO A»,Z 
CALL WAIT 
CALL ROBYTE 
RET NZ 
LD A, (BSRAM) 
ciR A 
RET Zz 
LO A, 10H 
RET 

BYTE IN D 

IN A, (iz) 
IP M, REO 
LO A, O8H 
OR A 
RET 
IN E,(t) 
IP M,REBO 
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EXATRON STRINGY FLOPPY FIRMWARE FOR 


34DB 
S4NE 
Z4.0F 
S4E2 
34E4 
B4ES 
IGE7 
T6E% 
S46EC 
34ED 
34EE 
TAFO 
B4aPFS 
BGP 
Z4F3 
I4FR 
34éF0 
2700 
370% 
3704 
3705 
3707 
S708 
370A 


SALA40 
B82 
S21A40 
O40 
QO408 
oo 
SEO3 
701737 


10Dnr 
= 


COIs 
im 8) 

é4 

Oo 
SEOS 
MOLVa7 
[pene ee bey 


FEFR 


1084 
1055 
LOmé 
1027 
Loess 
10a 
1070 
1O%1 
1ov2 
10°73 
1074 
1075 
Lov4 
1077 
Lowe 
Lov? 
1100 
1101 
1192 
1103 
1104 
1105 
1104 
L107 
1108 
1107 
1110 
1111 
1lLiz 
1113 
1114 
1115 
1114 
1117 
1113 
1ii 
1120 
lizi 
1122 
1123 
1124 
1125 
1124 
1127 
1128 
1129 
1130 
1151 
1132 
1133 
11:34 
1135 
11:34 
11:37 


* 11:38 


Listy 
1140 


RB1 Lo 


RR2 NOP 


RE4 IN 


RES XOIR 


;REAL TWO BYTES 
; L ANT OD 
$ eH 44/538 
ROTWO CALL 

RET 

LO 

NuiP 

LD 

CALL 

IF 


2 
? 


HEH L4A+43 HE 
53H GS 4s 
WAIT DEC 
JR 
THEBRE LO 
AND 
RET 
RRCA 
PuoP 
RET 
MTOFF FPLISH 
XOR 


MT 1 POP 


MTNW DB 
MTN XR 


TRS-SO 


A» (BSRAM) 
AD 
CBSRAM),.A 


REZ 


INTO 


Hee 
RDOBYTE 
NZ 

LE 


AZ 
WAIT 
RDOBYTE 


A 
NZ,WAIT 
A» (BSBRE ) 
4 

L 


De 


AF 

A 

(C),A 

A, (BSINTH) 
ET 

Z>MT1 
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EXATRON STRINGY FLOPPY FIRMWARE FOR TR5-S0 PAGE OO21 


3725 ES 1141 FUSH HL 
3736 2AB1I40 1142 LO HL, (BSMEM) 
3739 23 1143 INC HL 
373A 4E 1144 LO Z, (HL) 
3738 E1 1145 For HL 
3720 BOS 1146 ule Z,MT= 
S73€ ED7s3 1147 IN A, (f) 
3740) ©=6E6O1 11483 AND 1 
3742 «fo 1149 RET NZ 
3743 0°30 1150 MT2 ING A 
3744 EL79 1151 OUT (Z),A 
3746 3 1152 DI 
3747 1407. 1152 LI 0,7 
3747 1802 1154 IR CNOLY 
374B 141F 1155 DELAY LO Dn, 31 
3740 AF 1154 ONDLY XOiR A 
374E B7 1157 DLP OR A 
S74F BaoO4 1158 IR NZ,DL1 
3751 ED73 1159 IN Ay (IT) 
3753 E404 1140 AND O4H 
3755 10F7 1141 DL1 CLINZ DLP 
2757 15 1142 DEC D 
B75& ZOr4 1143 IR NZ, CLF 
3750 B7 1144 OR A 
S735B CY? 1145 RET 

1146 3 

1147 sHewe 424% COVER THEIR ASS #4 #3% 

1143 3; 

S780 213440 11469 DEBNC LO HL, BSKS 
S75F O10138 1170 LU BC, BSKEY 
3742 14600 1171 LD 0,0 
3744 OA 1172 DBLP LO A> (BC) 
R745 SF 1173 LI EA 
3746 AE 1174 XciR (HL) 
3747 73 1175 LO (HL),E 
3743 AZ 1174 AND E 
3749 2007 1177 JR NZ,OBON 
374B 14 117% ING Cl 
2740 2C 1179 ING L 
S740 BOL 1130 RL C 
S74F & 11:31 RET M 
3770 8 613F2 1132 JR DBLF 
3772 SF 1193 DEON LD EA 
3773 CS 11354 PLISH Rit 
3774 0407 1195 Lo B,7 
27746 CD4000 11386 TALL RSDLY 
3779 «G1 1137 PIF BC 
377A OA 1138 L[t A> (BC) 
377B AZ 1189 AND E 
2770 «4s 1170 RET Z 
377D 4 CSFROS 1171 IF BER 
3780 (0000) 1192 END 
Errars QO 
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EXATRON STRINGY FLOFPY FIRMWARE FOR TRS-0 


CROSS 


ABT 
AUTO 
BASIC 
BFD 
BREMSG 
Ast 
BSBGNP 
BBR 
BSscLo 
BStLR 
BSCNW 
RSCONT 
Beimsy 
BSTiLyY 
BSENDP 
RBSERR 
BSEXE 
BOFCE 
BSF IND 
BSF IX 
BSHL 
BSIEXP 
BSINC 


LET 
TERRMS 
TH1 
IHS 
HS 

Lt os ba) 
HS 
CHECK 
THK BRK. 
mR 
DEON 
DBLF 
DEBNC 
DELAY 
Cit 


0340 
O104 
O04 
Os31 
O824 
O04 
OOLE 
QO34 
OOLS 
OO 1S 
OOLY 
OoLO 
OO27 
OORZ 
OO2S 
QQda9 
aoaz 1 
Oot 
OoLs 
NOZG 
oo13 
0014 
PazO 
ooas 
Oo1s 
oOo35 
OO20 
Oo32 
NOF1 
O04 
O024 
OOO 
Ooo?7 
OO1L7 
OoOo4 


QOL? 
Q0O1L4G 
OO34 
OOLS 
O510 
O77S 
0003 
O07 
O117 
O126 
OLs3 
0143 
O141 
O111 
1124 
OOO! 
1183 
1172 
1142 
1155 
1141 


0318 
00357 
0143 
0357 
O340 
O107 
0105 
O37? 
0147 
Oov 3 
O149 
OO49 
O145 
1124 
0247 
O332 
O113 
Os 
O104 
O339 
0043 
O34 
0113 
O223 
1133 
1170 
oOove 
1171 
114° 
O241 
O2sS 
OoOs8O 
oO1ed 
O24? 
O077 
1014 
Ooo 
0079 
oO315 
Oos1 
O472 
O1st 
1134 
O44 
O114 
OL123 
O129 
O131 
O137 
OO73 
1019 
O771 
1177 
1152 
O097 
O75 
1153 


REFERENCE LISTING 


O31 
O2O01 


O827 


Oo210 
1124 


O114 
O1é61 
O208 


O131 
OLS? 


0307 


O08 
O347 
O33 
O04 
1069 


‘J 


oos8 3 


1022 
O83 


040% 


O235 


OL4c3 


fat 


id 


O15z 
CHS 4 
OB44 


0407 
1084 


O20O7 


O25 


QE 7 


O244 


ut 


O227 


O7465 


OSS 


O720 
1084 


O224 OFR7 
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OF74 OFES 


EXATRON STRINGY FLOPPY FIRMWARE FOR TRS-20 
CROSS REFERENCE LISTING 


OLP 1157 1141 1143 

DONEMS oO8245 O328 

EQFMSG O821 O854 

ERR O725 04462 0645 0474 0477 O482 O471 O708 
ERRMSG O822 o8ss 

ERRUR O774 oo55 

FRCF 0747 oO044 

FBIQF X O731 oOo050 O74 

GETN 0156 oOo0546 O172 OLS O22 
GT1 O143 0158 

HEAL 783 OOO 

INTGR Ef > OL?P5 O1°79 OFOS 
Lod O245 

Loz O240 O25 

LOS OZ41 O245 0264 O24 
Ln4 O27O OSES ; 
LO OSL oO504 

LIZ Q219 OSL2 0314 OF17 
LOAL! N2Se OL4e 

LOADA O1odz 

LOADB o285 

LA1 O327 O23231 O321 O325 
LRSO O233 O275 

LRG Os25 O184 

LRTN O226 OQO262 O271 O2581 O291 0300 

MT1 1137 1135 

MT2 1150 1144 

MTCFEF 1120 O327 O387 0453 0503 O52% O578 06v9 0741 
MTEIN 1140 0240 O377 0472 O7:34 

MTONW 1137 O3%8 O325 O8574 0603 

NEW O172 0150 

NEWA Onv7h& O0O83 O174 

NEWMSG O772 O17% 

NWO OLs3 oO17% 

NWiO o4s52 0444 0444 

NW1 1 0453 0400 0405 0412 O415 O423 0434 

NW Od14 oO4032 O418 

NWS O417 O41%3 

NW4 0420 0420 

NWS 0425 0425 

NW7 Og$2¥ O4RZ 

NWS O435 O439 

NW? 0441 O451 

OMMSG oOs09%7 O847 

CNDLY {154 oO843 0744 1154 

OF 1 O735 0740 

OPS 741 0736 

FEL oss7 o885 0841 0844 0847 O850 OSS 
PERRMS o3805 o843 

FR1 1018 1008 1024 1023 

PR2 1O1?9 1021 

PRS 1022 1024 

FR4 1025 1039 

PRS 1027 1028 1042 

PRA 1034 10235 

FR? 1037 1034 

FRE 1045 1044 
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EXATRON STRINGY FLOPPY FIRMWARE FOR TRS-80 
CROSS REFERENCE LISTING 


FPRTERR 
PRTSTG 
REO 
REI 
RES 
RE4 
RES 
RBG 
RBLIGICK 
ROBY TE 
ROTWO 
READ 
READMS 
REWIND 
RLF 

RFE REAM 
FRTN 
RTNES 
RWOF 
RWOL 
SAO 
SAI 
SAz 
3Az 
SAVEA 
SAVER 


VRE MSG 
WAIT 
WRECIF 
WRLOIE 
WEF 
WECIF X 
WEWE 
WPMSIG 
WPREAM 
WRBIT 
WREITL 
WREITS 
WRELE 
WREWT 
WRBEY 


0833 
O862 
Lok? 
1084 
103% 
LO?%4 
1079 
1102 
1051 
1077 
1iis 
0443 
O00 
O375 
0479 
100S3 
O2OR 
O46 
O337 
O379 
O13? 
Q207 
O2OS 
O215 
Os70 
Ove 
O7356 
QO103 
oo7 1 
04605 
Q&t1 
QO4446 
O47 
O70 
O724 
O717 
OIG 
O47 
O4623 
O47 
oOo002 
OSL3 
Osos 
1122 
OSS'9 
O?P17 
O570 
O349 
O873 
O817 
abate 

OV7R 
Vk? 
Q?70 
OS23 
OVE 


OV39 


03:30 
OO? 1 
1073 
1046 
11046 
1097 
1095 


O241 
0430 
O311 
O28. 
O285 
O33 
o1e7 
OLv2 
N202 
a04s 
O146 
0047 
OO%6 


O4609 
O411 
O450 
O713 
O495 
O722 
O717 
O62 
O42: 
OAOF 
O440 
OvPOg 
Of4o0 
oOs352 
1014 
Qo054 
O532 
OOs2 
0044 
0373 
0834 


0776 
0174 
1083 


1100 
1101 
0427 
O492 
Q230 


0404 


O414 
O44 


O24 
O220 


O13 


O23 
O606 
0447 
tO) 


» 0612 


Q1s2 


10462 

0714 0715 
O290O O484 
O435 047% 


O4S7 O472 


QN4613 9615 
9655 08647 
1038 1064 


OSvs 


O216 


1015 
0454 


1051 


9466 0473 


0605 0446 O735 1012 


O312 


QO479 0693 O715 O71¥ 0724 


1071 1117 1123 


O341 O&39 O8F7 


1043 104647 1112 


FAGE 


1118 


OF 24 


~ 


OO24 


EXATRON STRINGY FLOPPY FIRMWARE FOR TRS-8O FAGE 0025 
CROSS REFERENCE LISTING 


WRBYT 0946 OF13 O996 ; 
WREYTE OF45 OFO5 OF 30 OF35 OF45 1003 
WROLE OP79 OPP 


WRITE O543 0043 O5462 
WRITEX O51% OO81 O50 


WRITMS O797 O2815 
WREWT2 O897 O897 
WRLOP OrLli oF24 
WRERE O874 0411 O577 0439— 
WRTN O527 O8276 o5297 Oo834 


WRTWO  O995 O533 0617 0422 0427 0877 
WRTWT o75& 0956 
WRZRO 0990 OF7%4 


ESF DATA I/O FOR TRS-s0 


7SEO0O" 
7a" 


7ooOa” 


7OLO" 


FEO ° 


7USL" 
7034" 
7025" 
7O34" 
TOSS? 
7O39" 
7OSB" 
7OVSF 
7041" 
744° 
7n45° 
7R4a7° 
7U4 3% 
7048" 
7D4E° 
7050-° 
7052" 
7054 ° 
F7OUS7” 
7OS>9- 
7OS 


7USF ” 
7 Dz“ 
POG 
7 Doe” 
7DIGA” 


(7FFO°) 


(O800) 
(Q000) 


(aa1d) 
(OOOO) 
(OO008) 


(9020) 
(OOOO) 
(d008) 
(OO10) 
(9018) 


(O001) 


ZSABL40 


oar) 


7E 
E407 
4F 
Q400 
pn210070D" 
nna 
SAEGA4AO 
7E 
FER2 
S338 
FES’ 
TALS7E* 
FEA2 
Zeor 
FEAS 
TAP77E" 
FERS 
CAZA7F ” 
mF O7F * 


DO7EOO 
B7 
CE4Ale 
Fo211070r° 
Ovooos 


ooo01 
Ooo? 
O003 
Ooo4 
ooos 
00046 
O007 
QQos 
oo09 
a019 
oo1l 
OO12 
OoO1L3 
OO14 
OO1S 
0016 
0017 
OoLs 
ool? 
Q020 
aoas1 
NOLL 
OO ns 
O024 
og2s 
Q026 
O027 
9023 
9029 
9030 
OOSL 
QO32 
OO 


Q034 


“OO2S5 


OOS 
O27 
OOS 


“ OOR9 


0040 
oo041 
0042 
QO43 
O044 
oo4gs 
046 
0047 
9049 
O04? 
0050 
Oos1 
OO52 
Oo83 
oOos4 
oOose 
QO5S6 
Ooo57 
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HREM HHRREARHHRE HRSA 


$ STORAGE ALLOCATIONS FOR BUFFERS ETI, 


ORG $+7 00H 
FREV EG S+OAFDH sVECTOR TO FPREVTGHUS MODAL 
os Besse SUP TO & BUFFERS, 254 EACH 
BUFFER [IS a) 
DRVETR DS 14 IDRIVE CONTROL BLOCK 
us EG QO ;DRIVE STATUS 
BN EGU 3 SBLIFFER # FOR THAT DRIVE 
BUFETR 05 s2 SBUFFER ISONTROL BLOCK 
BS Ei Q s;BUFFER ‘STATUS 
RC EQu Pt ;RECORD COLINT 
RL Eau 14 sRECORO LENGTH 
BP Erit 24 SBYTE FPOINTER 
STAT ns 1 SERROR CODE FOR FO ERRORS 
S HEHEHE HHH HHH RHHHHHHHHHHHESHHS 
5 SYNTAX SCAN 
TAPE LD HL, (BSMEM) 
ING HL 
LD A, CHL) sDRIVE FURT ¢ 
ANT 7 
Lo ZA 
LO BO 
LD Ix, DRVCTR 
apg Ix, Be 3 1X-2ORVOTR 
LO HL» (RSHL ) 
LD A» (HL) 
iP BSCPR 
IR Z, PRINT 
cP BSCIN 
IP Z> INPLT 
Pp B=CoP 
JR Z,CIPEN 
ce BSCcL 
IP Z,0LOSE 
cP BSCR 
JP Z, CLEAR 
JP FREV sPREVICUES MODAL 
S HMMS 
5; @C#HDUIOFEN N 
OPEN LOD A, (IX+D8) 
oR A 37's DRIVE FREE? 
IF NZ; BSFCE SN, FO ERROR 
LO LY, BUFCTR sYES 


LD BO, Of00H 3sFIND A FREE BUFFER 


ESF BATA 1/0 FOR TRS-30 


7040° FD7EOO Ooss 
7070° H7 QO59 
7O71i" Besos 0040 
7O73° Foes O01 
7O7S" at O042 
7U74&° LORS O04S 
7078" MWS4Ale 0064 
7O7B" iS QO4S 
7O7C" COS OOK 
7O7FS SSF7 O04K7 
701" FS O068 
Foes COO SO OOK? 
FOSS" MEP47F 0070 
7Oess° OOSAQ001 007 1 
7OEC" Fi QOO72 
7OoSso" FOF ZOO Oog7S 
7OVO" FOAGOSOO 0074 
FOYE” FOSELOOO 0075 
7Orvs* FORSLSO0O OO7& 
70. 1 077 
7O0roO” DOFLOS OO7E 
7DIAQ? my OO79 

oOoOso 

Oost 

O08? 

OO: 

OOgs4 
7DAL” DOD7EOO OOS 
7OUA4" FEOSR OORG 
7NAG" 20% OOS7 
7OAS” FEOL OO3R 
TDAA" T24AL1E oon? 
70a OOSAO0O03 Ora 
7OBL" 04600 OOF tf 
7URS° O4EOs OOS 
7DR4° FOSL1IO70" OOS 
7TRBA” FOO? OO" 
7ORC” 41 OOrE 
7OBO o4 OOV4E 
7ORE* DOSLoOoO7o- OOS? 7 
7OG2" LLOOFF OOS 
7OCS* Obi OOvy? 
7OC7“ LOFC NLA 
707" FO4E1S O101 
70? OO O102 
7OCE” D7 O103 
FOZF Coes 7es O104 
70DS" SAAF4O O105 
7ODS” COlS7E” »-OL06 
7OoSs" 112141 O107 
7ODR" FEOS O108 
7ODO 2809 o109 
7OORF” 2e1s Oo11o0 
7OEL*’ FEO4 OL1il 
7OES* 220-2 OLts 
7DES” 111041 OLis 
7OES" 47 O14 


Lio 


Lis 
ie Oe 


e 
? 
a 
? 
s 
? 
s 
? 
s 
? 


RINT 


Leo 


L21 


Las 
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A, (CIY+BS) 
A 

Z»L1i 

Ty 

Cc 
L1o 
BSFCE 
Br 
ESFGTN 
Z,Liz 
AF 
ESFFEF 
NZ,BFOD 
(IX+05)51 
AF 
(ITY+835),A 
(IY+R0),0 
(IY+RL)>0 
CIY+BF);0 
Br 
(IX+BN),0 


?GET-FILE # N 
jN=0, FID ERROR 


;BAD, FO ERROR 


sORIVE TO BUFFER 


HHMI RHHHHREHEHHHH EHH HH HY 


@C#DOUIPRINT LIST-OF-EXPRESSIONS 


A» (IX+0S) 
3 
Z+L20 sWAS IT OUTPUT? 
1 SILT OPENED? 


NZ, BSFreE INO, Fr ERROR 
CIX+005) 53 SMAKE IT GUTEUT 
B,0- 


i, (IX+BN) 

IY, BUFICTR 

IY, Be 

Be 

B 

IX, BUFFER 

DE, ~254 

IX,RE 

Let 

C, CIY+BF) 

IX, BC 

1OH 

BSEXPR <sEVALUATE EXPRESS 10N 
A, (BSVART ) : 
PUT 

DE, BSAC 
C.L23 
Z»L26 

4 

Z,Le3 3;TYPE 4, 
DE, BSACCO 

BA 


INTEGER 
STRING 


STYPE 2, 
;TYPE 3, 


REAL 
3 OOUBLE 


INQ FREE BLIFFER, FC ERROR 


3FIND BEGINNING OF FILE N 
sMLAIM THIS ORIVE 


SITLAIM THE BUFFER 


;PUT VALLIE TYPE IN BLIFFER 


ESF DATA I/Q FOR TRS-SO 


7DE?” 1A O11s 
7DEA” 13 0114 
7OEB’ COOS7E- O117 
7OEE" 10OF% O11 
7OUFO" 7E O1vLly 
70Fi° FEST OL120 
JOF2° SSO O121 
PORFS” S22E440 O122 
7OFS" ty O13 
7ORF?" ES O124 
7DOFA” 1A QL25 
7RFR* 4F OLZ46 
7OFR" 13 OL27 
7OFO" 1A o12s 
7OFE” 4&7 O12? 
TORR. 7E O10 
7EOO* COODS7E- O1st 
FEOR" 23 OLs2 
7JEQ4°" SE O133 
7EQS” 2S OL1sS4 
JFEQS” 34 O135 
TEO7* S21IBS40 O134 
VEOA" BEBR40 O137 
7EoO" El. apse 
JEQE” 87 O139 
7EOF” SS DF O140 
7EL1° L2D5 O141 

O142 

O143 

0144 

o145 

O146 
7E13° DU7EOO O147 
JE14° FEO? 0145 
7ELS° 280% O14 
7JE1A” FEOL oO1sSod 
JEL’ CB4Al1e OLst 
JE1IF. DOS40002 O152 
FEES" O4600 OLS3 
JE2ZS° DO4EOs 0154 
7E2S° FOSLLO70~ O1S5 
7E2C? FOO? OL54 
7EZSE” 41 O157 
7EZF" 04 OLss 
7E20° DD21LO07D" OLsy 
7E34° 1100FF O140 
JE37° Dos O1L141 
JES?" LOFT O162 
7ESB" FD4E1s O142 
7ESE’ DDO» 0164 
7E40° D7 O145 
7E41" OL7VL7E’ O1464 
7E44° 1S O147 
7E4s° moaogzeé O40 
7E42° EB O1a? 
JES? SSOF 40 OL7O 


7E40° ER OL? 


L2 


L26 
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A, (DE) 
DE 
FulT 
Lit4 

A» (HL) 
“a0 sLIST 
Z»Liz SMOIRE 
(BSSHL)> HL 


;FUT TYFE IN BUFFER 


SEFERATOR 
IN LIST 


;ENG GF COMMAND 

HL SFING STRING 
A, (TE) 

L»A 

DE 

A» (DE) 

HA 

A> CHL) 

PUT PSTRENG LENGTH IN BUFFER 
HL 

E, CHL) 

HL 

Os (HL) 


HL,» BSTMF +2 
(BSTMF) > HL 


AL 

A 

Z,L25 SNULL STRING 

LE3 IPUT STRING IN BUFFER 


HHRMHHH EERE HHHRRHHHHHEHHERRREHSHHEEH 


Lo 


L331 


3 @C#DO] INPUT LIST-OF-VAREABLES 
I 


A», (IX+DS) 


Z,L30 Ss THIS 
1 70R WAS IT 
NZ,BSFCE sNO, FIT 
(IX+0i5),2 SMAKE ITT AN 
B.@ 

, (IX+BN) 

IY, BUFCTR 

IY, Be 

BC 

B 

IX, BUFFER 

DE, -254 

Ix,e 

List 

i, CIY+BF') 

IX, Be 
10H 
BC>LES 
BC 
BSVAR 
DE», AL 
(BSADLI) > HL 
DE. HL 


sRETURN ADDRESS 


sFING! VARIABLE IN 


WAS AN INFUT FILE 
MUST OPENED? 
ERROR 


INPUT 


LitsT 


ESF DATA I/0 FOR TR5-30 


7E4D° O88 0O172 
7E4E” E7 O173 
VE4F° FS 0174 
JESO* COBO7F 0175 
7ES3° BAF 40 


VES4" 112141 0177 
JES?" FEOS O17& 
7ESB. [330% Q177 


PESO’ SS1B O1s0 


VESF* FEO4 O131 
7E41° Sa03 G1s2 
7ESs* 111041 O1s3 


OLS4 
o1es 
O186 
O137 


QO.eSs 


FESS" 47 
7E4&7* CORFS7E- 
7EZA" 12 
VEGH" 13 
7ESC” LOP? 


7ESE* O331L1F O13% 
7Ef1° 7E O1e0 


O11? 4 
o1982 
O1ys 
O1?4 
OLyS 
OLY4 
O1L?7 
OLvs 
OLS 


vere. (eLe 
VE74" SSCA 
JE74&" ZEE640 
TE79° IL? 
7E7A” ES 
7E7B" COFA7E- 
VE7E* SABS40 
FES" 222141 
7ES4* 77 


TESS” EDSBA740 0200 
7EROY 23 OZ01 
7ERA” 73 O202 
7ESR* 23 0203 


YESC* 72 O204 


FESO’ 23 205 
ESE” ZEB340 OLO6 
7EPt* El 0207 


O2Or 
O20? 
O210 
O21 
OoO212 
O213 
O214 
O215 
O214 
O2Z1L7 
O21 


021° 


JEV2° B7 
3° 2e0? 


EPS" LSlr 


v7" DF 
WS" SSEA4O 
PRO O400 

OD4EOsS 


7EAO” FOZ11070°" O220 
7EA4S” FDO? O221 
7EAG* OCO7EOO O222 
7EAY’ B7 OZ22 
7EAA* Ce O224 
7EABY FEO O225 
7EAD" 201A 226 
VEAF” FO7E1S O227 


7EBS” ES . O22 


QL17e 


Lag 


3 
3 
3 
; 
3 
CLOSE 


@C#D0ICLose 


PAE 9004 


ne 

20H 
AF 

GETYF SGET TYFE FROM BUFFER 
CBRSVART),A 

DE, BSA 


?FING VARIABLE TYFE 


INTEGER 
STRING 


STYFE 2, 
STYFE 3s 


iy LSS 
Z» L4G 
4 
Zoe 'TYFE 4; 
DE, BSAC 

B.A 
ET 
(GE),A 
DE 

L334 
BISLET 
A> (HL) 


REAL 
7 DOUBLE 


9GET LENGTH FROM BUFFER 


ASSIGN VALUE To YARIABLE 
SRETURN TO HERE 

) s;LIST ‘SEPERATOR 

Z»L22 ;MORE IN LIST 

(BSHL)>HL 

s;END OF COMMAND 

HL 

GET SGGET LENGTH FROM BUFFER 
HL» (BSTMP) 

(BSACC), HL 

(HL),A 

DE, (BSBUF) 


(BSTMF) > HL 
HL 

A 
Z>L7 
Liss 


SNULL STRING 
SGET STRING FROM BUFFER 


HHHHKRMHHHERHREKHKKHRHHAHHHKMKAHHKAHKHHHLRHEE 


1OH 

(BSHL)> HL 

BO 

i, (IX+BN) 

TY, BUFICTR 

TY, Be 

A, (IX+fs) 

A 1 

Zz SDRIVE NOT ACTIVE 
3 
NZ,L41 
A» (LY+BF) 
HL 


STRIVE WAS FOR INFUT 
TWAS FOR NITRUIT 


ESF DATA I/0 FOR TRS-3s0 


7EBS* 
7EB4” 
7EBI¢ 
7ERS* 
7EBE* 
7EBI 
7EBE* 
VERF “ 
7EGe* 
7ECS° 
7ECS” 
7EL* 
7ECO* 
JEDI? 


7ED2" 
7EDS* 
7ED7~ 
7EDA” 
7EDBR” 
JEDI 
FEoR- 
7EDE~ 
7EEI” 
7EES* 
7EES* 
TEES” 
FEED 
7EEC* 
7EEF“ 
7EF2° 
7EF 3° 
7EF4~ 
EFS” 


7EFS” 
7EF7* 
7EFA” 
7EFB* 
7EFG’ 
7EFE” 
TFOO? 
TFOL? 
PFO” 
TFOT* 
PFOA" 
JFoD- 
7F1O- 
7FL.1° 


41 

O4 
21007D° 
LLOOFF 
1v 


FOZEOO 
P2730 
R294 7F 
El 


AOA40000 
FOSAQ000 


ny 


bO7 700 
DO 3 
FO 3413 
ZO 

ES 

cs 

FS 
OLOOFF 
ono: 
ODES 
E. 
O1000!1 
COOASO 
PL 7 
FOS40S 
Fi 

C1 

El 


uy 


ita) 


FO7EL= 
B7 
2025 
ES 
OES 
El 
OL1gaogl 
Coo3s30 
DE 17F 7 
FOo7110 
Fo s4os 
Ei 
DD7EOO 


0229 
O230 
O21 
Ons 
Ons 
O234 
O235 
OZIBS 
O237 
O238 
O23? 
O240 
O24 
QO242 
O243 
Q244 
O245 
O246 
O247 
0245 
O24? 
O20 
O25 1 
O252 
O253 
O254 
Q255 
Q256 
9257 
O2Sg 
O259 
Q2Z40 
O261 
O262 
ODA 
O2464 
O245 
O2Z45 
O247 
O24AS 
O24 
0270 
O27 1 
O272 
O273 
O274 
O275 
O2746 
0277 
02735 
O27 
O2S0 
O23 1 


O2a2 


L4Q AtD 


L41 LD 


1] “se vue we ve we 


Cc 
~ 


LO 
INC: 
ING 
RET 
FUSH 
PUSH 
PLISH 
LI 
ADD 
PLUSH 
POF 
Lo 
TALL 
JF 
INC 
PIP 
FinP 
POP 
RET 


(7) ws ve ws ws ve 
Lad 


m 
~ 


PUSH 


L&O LO 


PAGE OO03 


B,t 

B 

HL,» BLIFFER 
DE,-256 


HL, TE 

L4o0 

mA 

A> (IY+hS) SA=FILE # 
ESFWRF <s$WRITE BUFFER AND ECF 
NZ,BFO sDOIh NOT WORE, FO ERROR 
HL 


;SET OQRIVE FREE 
iSeE7T BUFFER FREE 


((X+05),0 
CIY+BS),0 


HHHKKHREKHRHHHKHHHEHHHHHRHHEHEKAHHHHRAHRHHHERH 


FUT A BYTE IN BUFFER 


(IX)>A 
1X 


NZ PINOT FULL, JOE OONE 
HL :BUFPER FULL 


Bit, -254 
IX, Be 


SWRITE BUFFER ON TAFE 
NZ,BFD 30H, SHIT 
CIY+RC) 

AF 

BE: 

HL 


HEHEHE HERE HHEHEHHEEERHHRHHHHAHRHHRHH 


GET A BYTE FROM BLFFER 


Br 

A, (IY+BP) 
A 

NZ,L42 


PPRAINTERSO 
HL 3 =O) 


BUFFER EMPTY 


ESFRED ;READ A RECORO FROM TAPE 
NZ,ERR ;30UT OF DATA GR REAL BAL 
CTY+RL) 2 

(IY+RO) 

HL 


» (LX) SGET THE BYTES 


ESF DATA I/0Q FOR TRS-SoO PAGE 0004 


7F14° DD23 0236 ING Ix 
7F1i6° FOS413 '  O287 ING (IY+BP) 
TFLP" S005 O2383 IR NZ,L4&1 
7FIBY OLOOFF Ons LOG BC, -254 
7FLE’ ODO? O270 ADL IX, Be 
7F20" 1 O291 L4Al POP BC 
7F2i* Cy O2P2 RET 
7F22° FORBE1O O293 L422 IP (IY+RL) s;MAY BE END OF LATA 
7F25% GAAOZS O24 IP Z, BODE ;YES, Ob ERROR 
7P 2S? 1867 O25 JR LéO SNO, GO AHEAD 
O2Z96 3 
DDD SF HHH HHH HH HH 
O2YR § 
O2?? 3 @CLEAR CNI 
. O3QQ0 $ 
7FZA” COSO30 O201 CLEAR CALL ESFGTN 3$GET VALUE CF N 
7F20° FS OS! PUSH AF sSAVE IT 
7FZE° FEOY O33 nF D 
7FRO" D24A1E O304 uP NO, BSFCE SNES, FR ERROR 
TFBS" S2E440 O30S5 LD (BSHL) >» HL 
TF346° O46083 QOB06 LD B,& 
7Fs8° DOS1L0O07D" O3O7 LO IX¥,DRVCTR 
7F3C°" DOS40000 o309 L71 LOD CIX+05),0 SFREE ALL DRIVES 
7F40° DO7VELO O309 LD A» CIX+BUFCTR-DRVCTR) 
7F4a" BC O310 INC A 515 BUFFER ALLOCATED? 
7F44" BEI04 O311 JR Z,L77 SNC, DONT TOUCH IT 
O312 3;ELSSE, FREE THIS BUFFER 
7F46° 003461000 O313 LO CIX+BUFCTR-ORVCTR),O 
7F4A° DDZS 0314 L77 ING Ix 
7F4C° 10EE O315 ChiINZ 71 
7F4E° 2AB140 O14 LO HL,» (BSMEM) 
7FS1L" 23 O317 INC HL 
7ES2° 24FO OBL LD (HL) > OF OH SSET DRIVE # Tm © 
7FS4° Fi Oa? PoP AF SOPTIONAL N 
7F5S° In O30 RET Zz 3N=0O OR MOT THERE 
7F56° 211770" Oss LO HL», BUPETR+BS+7 
7FS9° 94608 O32. LD BR, 
7FSB" S4FF O223 L72 LD (HL), OFFH 
7FSD" BS O24 TP B 
7FSE* 3202 OS25 JR m,L73 
7F4Q0°% 2600 O26 LD (HL),O ssET N OF THEM FREE 
7F42° 2B O327 L73 DEC HL 
7F463" 1OF4 O328 DINZ L723 
7F45% Z1FB7C- OR29 LD HL» BUFFER-5S SIOMPUTE HIGHEST 
7F4&S3° LLOOFF O330 LO DE, ~256 ; ADDR FoR BASIC 
7F6B* 47 OAS 41 LOD BA 
7F4C’ 1? QO332 L74 Ang HL» DE 
7F4D° 10FD O332 DINZ L74 
TFSF" 22B140 O334 Lo (BSMEM),HL sSISIVE IT TO BASIC 
7F72° AFO7C. O335 LD SP, BUFFER-14 
7JF73S" 23 OH INI HL 
7F7G6"% 34FO O337 LD CHL)» OF OH SPORT # AND 
7F73° 23 0333 INC HL. , 
7F79" 34603 O39 LoD CHL)» OSH 3 UIMP INSTR, 
7F7BY 23 OC; O340 ING HL 
JF7IC* BREST F O34 1 LD (L7S+1),HL 
7F7F" 213170" O22 LO HL» TAFE 


ESF DATA I/O FOR TRS-80 


7FS2° 220000 0343 

7FSaS5" LL3200 244 

7Fae° COsSsie O245 

7FSeh? SAE4S4O O246 

7FSE* MSLEto O347 

O343 

O349 

asa 

O3351 

TRL FEO4 O252 

TERS" CAAQRS O253 

O54 

TEA" SF OSS 

JE27° E3070" O256 

VERA" SBAFO4O oO257 

7FPR Ft osSs 

7FRE” ES Orso 

TERE BEG O60 
7FAIL* SAF 240 OAL 
7FA4S" 87 O62 

FFAS" 2EOg O243 
7FA7” 7B O364 

7FAE” COSASO O345 
7FAB” 1E2ZA 34646 
7FAD? msaALli? O247 

O343 

OAS 

0370 

O37 1 

O372 

7FBO" COFS7E* O37 

7FAR3" FEOS O374 

7FBS° ser4 O2875 

7FB7° FEOS O74 

7FRY*" [hs O277 

7FRA” FEOS O27S 

YFRRS ie O79 

7FEO? LSer OO 
Osa] 

O282 

O33 

O3E4 

sie 

(40E4) VIA 

(17A1) 0387 

237) OES 

(4121) O29 

(411D) O30 
(40B1) OSL 

(1E4A) OBV2 

(40AF ) O39 
(246001) O394 

( 40LIF > O75 

C1F 31) O2946 
(40B3) ODI7 

(4087) O22 


(LES) Osa 


L75 LO 
LO 
TALL 
LD 
wl P 
ERR Cr 
IP 
BFR LD 
LO 
LOD 
Lo 
CR 
JR 
LO 
oR 
LIR 
Lat LO 
TALL 
FRE Lo 
AP 
GETYP CALL 
iP 
JR 
LP 
RET 
CP 
RET 
JR 
; LINKS TO BASIC 
BSHL Eu 
BRSERR EaQU 
BSEXPR Emu 
BSAC Ein 
BSAaCcD ERU 
BMEM Emu 
BSFCE Eu 
BSVART EU 
ESVAR EOL 
BADE Et 
BSLET EQU 
BaTMP Emu 
BBUF Em 
BiCLR EG 


FABE 0007 


(O),HL 

NE, So 

BSCLR SILEAR So 

Hi» (BSHL) 

BSioNT BARE TO BASIC 


HRAEREKHLHRRHRHKRAHRHHHSHHRKHSERERHH AHHH AH 


OUT OF DATA OR BAD FILE DATA 


O4H sI5 IT EOF ERROR? 
Z,BSODeE s;YES, OO ERRER 
ELA s;BAC FILE DATA 
(STAT),A ae ERROR mode 
HL» (BSONEL ) 7;ON ERROR GOTO > 
AH 

L 

Z2,LS1 

A»s (BUStiNEF > SFLAG SET? 

A 

Z,FDE 

AJE SPRINT ESF ERROR Misi 
ESFFRI 

E,2AH 3FQ ERROR CODE 

BSERR 


HRERKHRHKRAAHRHHKAKEHHHRRARHHHHHRHEERHHHHERH HEE 


GET DATA TYFE FROM BUFFER 


GET ;GET A BYTE 
C,FDE $TYPE MUST >= 2 
5 

c so AND <5 

Z 5 OR = 8 

FOE 


HEHEHE RHEE HRHHHHHHEHH SKE 


INTERFRETER 


4QE46H 
1?A1H 
Z2a37H 
4121H 
411DH 
40B1H 
1E4AH 
40AFH 
240DH 
40DFH 
1F31H 
40B2H 
40A7H 
LESH 


ESF DATA I/0 FOR TRS-SO PAGE ooo8 


(i1D1E) 0400 BSCONT EAU 1D1EH 
22A0) 0401 BSODE ERU 22A0H 
(40F0) 0402 BSOUNEL ERU 40F OH 
(40F2) O403 BSONEF ERU 4OF ZH 
O404 3 
CBOSS FRE EE ESE ESE SE EEE HE HHH HHH HHH EHH HHEHHEEY 
Q406 3 
0407 3 TOKENS FOR BASIC 
O40 3 , 
(OOB2 > 0409 BSCPR En OBZH 
(a08% ) 0440 BSCIN Emu Of%H 
(QOA2) 0411 BSCor Emu OAZH 
(QOA4S) 0412 BSCCL Emi _OA6H 
(OOBS) 0413 BSCCR En OBSH 
O414 3 
C4 LS § HHMI HHH KEHHHRHEHRHHHHHY 
O416 3 
0417 3; LINKS TO ESF FIRMWARE 
O41s § 
(3003) O4i97 ESFRED Emu 3003H 
(3004) 0420 ESFWRT El 3006H 
(300F ) 0421 ESFFRF EQUI SO0FH 
(3027) O422 ESFWEF EW 2O27H 
(302D) O423 ESFGTN Emu S02DH 
(202A) O424 ESFFRI EQu 302AH 
O9es 3 
7FEF* (0000) 94264 END 
-Errors fs) 


Frogram Lenath 7FEF (22703) 


ESF DATA I/O FAR TRS-soO 
CROSS REFERENCE LISTING 


RFD 

BN 

EP 

BS 
BSAC 
Bsaccgo 
BsAnr 
BSBUF 
Bsc 
BSCR 
BSCINn 
BSCLR 
BSICONT 
BStnP 
BSCPR 
BERR 
RISEXFR 
BSFCE 
BSsHL 
BSLET 
BSMEM 
BSole 
BSSINEF 
BSCINEL 
BRS TMP 
BSVAR 
BSVART 
BUIFCTR 
BUFFER 
LEAR 
CLOSE 
CRVCTR 
os 

ERR 
EFF RF 
ESFGTN 
ESFFRI 
ESFRED 
ESFWRF 
ESFWRT 
FOE 
GET 
BETYP 
INPUT 
L10 
Lil 
Liz 
Lo 
Lil 
LZ 
L24 
Las 
Ls 
Lo 
Lat 
Le 


O355 
oo13 
OO19 
aog1s 
ons? 
O70 
OBS 
OVA 
0412 
O41:3 
O410 
One? 
O400 
Ott 
O40? 


a4ot 
O403 
O402 
(VI07 
ORIG 
OVS 
OoOLS 
oOodag? 
Oso L 
O2Z14 
Oo1t 
oo12 
O22 
O4st 
Od2s 
0424 
Odi 
0422 
O4Z20 
O46 
O272 
O37 3 
0147 
OOS 
0065 
O64 
Oo fF 
Qe 
OL1d%3 
O114 
O11s 
O1i? 
O124 
OLS3 
OLét 
OL4ES 


0070 
oo7s 
0076 
OOS8 
0107 
O113 
o170 
O200 
O043 
o045 
QOodg89 
O345 
347 
OO4tL 
OOS7 
O267 
O104 
ooe8S 
OOS 
Os? 
OO27 
OIE 
Os&1 
O3357 
OLA 
O1465 

OLoes 
OO54 
OOv7 
O044 
OO44 
OO33 
QOS 
O21 
OOkD 
QOOAA 
OAS 
OHO 
O237 
O2460 
OAS 
O1S5 
O175 
Q040 
QO043 
O040 
O047 
QO37 
o100 
O121 
O10? 
o115 
O140 
O1i6 
oO149 
OL4S2 
OLve 


02238 
a092 
0101 
O073 
O177 
OLS 


O064 


O122 
O314 
O253 
O137 
ay 


OO% 
o1 


is oN 
“Oo G4 ob 


O207 
O71 


OsAOL 


O37 
OL?E 


O1ts 


O241 
0154 
0143 
O34 
O1rs 


OORD 
O1vS 


O34 


O197 


eae 
O231 


OOF 
OOS 


OBO 
OB73 


O141 


O219 


O237 O250 0273 O257 


O241 O321 


Oat, O204 
O217 Oo308 


O2ZO06 


Qo220 O30% 
OS27 OF25 


O3L3 
oOov0g O147 


OF4S 


oL1ss 


OSL 


1 


FAGE oQO0O9 


O24O. OCHS 


ESF DATA I/0 FOR TRS-80 
CROSS REFERENCE LISTING 


L333 
L334 
LS 
134 
Li7 
L400 
L41 
L&o 
L&1 
Loe 
L71 
L72 
L723 
L74 
L7S 
L?77 
Lat 


0184 
0185 
OLPO 
OL 9S 
o1sy 
QO233 
oO240o 
O2ES 
O27] 
ORS 
O08 
O3Z3 
O27 
On32 


O43 
314 
O2h4 
OOS 
ONDE 
OoOns 
O24as 
OOL7 
oo1s 
OZ 1 
O0O27 


Q179 
O13%3 
O146 
Ops) 
o2o% 
O2n34 
O224 
O295 
Oso 
O275 
O215 
ODS 
325 
O332 
O41 
OsLL 
O3460 
Oo42 
OO47 
OO 
O1LO046 
O074 
00758 
O2546 
O24? 


0182 


0117 
O262 


QO282 


o210 


QO 


~., 
a 
i" 


QO 


he 
ti 


=“ 
- 


o 


io oh ee 


a 
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